计算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构造取代。