計算 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 構造取代。