Remove Computed Go To Statement

Description:  allow the user to add, remove, reorder, rename, or change the types of the parameters of a function or subroutine, updating call sites accordingly.

State: Implemeted         Author: Rui Wang      Version:  Photran 7.0

Code Example:

    program test1
    implicit none

    integer :: n
    n = 1
    goto (10, 20, 30, 40) n
    print *, "It wasn't handled"
    stop
10  print *, "It was one"
    stop
20  print *, "It was two"
    stop
30  print *, "It was three"
    stop
40  print *, "It was four"
    stop
end program test1

 		    program test1
    implicit none

    integer :: n

    n = 1

    select case (n)
    case (1)
        go to 10
    case (2)
        go to 20
    case (3)
        go to 30
    case (4)
        go to 40
    end select

    print *, "It wasn't handled"
    stop

10  print *, "It was one"
    stop

20  print *, "It was two"
    stop

30  print *, "It was three"
    stop

40  print *, "It was four"
    stop

end program test1

ScreenShots

             

HTML Comment Box is loading comments...