HP Fortran Programmer's Reference

Execution control
Flow control statements
Execution logic
Control transfers to the executable statement at integer-variable.
Example
INTEGER int_label
.
.
.
ASSIGN 20 TO int_label
.
.
.
GOTO int_label
.
.
.
20 ...
Computed GO TO statement
The computed GO TO statement transfers control to one of several labeled statements, as
determined by the value of an arithmetic expression.
Syntax
GO TO ( label-list ) [ , ] integer-expression
Execution logic
1. integer-expression is evaluated.
2. The resulting integer value (the index) specifies the ordinal position of the label that is
selected from label-list.
3. Control transfers to the executable statement with the selected label. If the value of the
index is less than 1 or greater than the number of labels in label-list, the computed GO
TO statement has no effect, and control passes to the next executable statement in the
program.
Example
116
DO
PRINT *, ”Enter a number 1-3: ”
READ *, k
GO TO (20, 30, 40) k
PRINT *, ”Number out of range.”
Chapter 6