目的
計算 GO TO ステートメントは、複数の実行可能ステートメントの 1 つにプログラム制御を移します。
構文
>>-GO TO--(--stmt_label_list--)--+---+--arith_expr------------->< '-,-' |
スカラー整数式です。
+----------------------------------IBM 拡張----------------------------------+
実数または複素数にすることもできます。式の値が整数でない場合、使用前に XL Fortran によって INTEGER(4) に変換されます。
+------------------------------IBM 拡張の終り-------------------------------+
計算 GO TO ステートメントを実行すると、arith_expr が計算されます。その結果の値が stmt_label_list への指標として使用されます。次に、制御が、その指標で識別されるステートメント・ラベルを持つステートメントに移ります。たとえば、arith_expr の値が 4 であれば、stmt_label_list 内の 4 番目にあるステートメント・ラベルを持つステートメントに制御が移ります。ただしこの場合、リストには少なくとも 4 つのラベルが存在していなければなりません。
arith_expr の値が 1 より小さいか、またはリスト内のステートメント・ラベルの個数より大きい場合、GO TO ステートメントは機能せず (CONTINUE ステートメントと同様に)、その次のステートメントが実行されます。
INTEGER NEXT
·
·
·
GO TO (100,200) NEXT 10 PRINT *,'Control transfers here if NEXT does not equal 1 or 2'
·
·
·
100 PRINT *,'Control transfers here if NEXT = 1'
·
·
·
200 PRINT *,'Control transfers here if NEXT = 2'
関連情報