Fortran Modern alternatives to historical features Computed GOTO


Example

Computed GOTO allows branching of the program according to the value of an integer expression.

GOTO (label_1, label_2,... label_n) scalar-integer-expression

If scalar-integer-expression is equal to 1 the program continues at statement label label_1, if it is equal to 2 it goes to label_2 and so on. If it is less then 1 or larger than n program continues on next line.

Example:

ivar = 2

...

GOTO (10, 20, 30, 40) ivar

will jump to statement label 20.

This form of goto is obsolescent in Fortran 95 and later, being superseded by the select case construct.