计算 GOTO

计算 GOTO 允许根据整数表达式的值分支程序。

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

如果 scalar-integer-expression 等于 1，则程序在语句标签 label_1 处继续，如果它等于 2 则转到 label_2，依此类推。如果它小于 1 或大于 n 程序继续下一行。

例：

ivar = 2

...

GOTO (10, 20, 30, 40) ivar

将跳转到声明标签 20。

这种形式的 goto 在 Fortran 95 及其后期已过时，被 select case 构造取代。