目的
ASSIGN ステートメントはステートメント・ラベルを整変数に割り当てます。
構文
>>-ASSIGN--stmt_label--TO--variable_name----------------------->< |
規則
指定されたステートメント・ラベルが含まれているステートメントは、ASSIGN ステートメントと同じ有効範囲単位内に存在しなければなりません。
ラベルの値で定義した整変数を、同じ、または異なるラベル、 または整数値で再定義できます。 ただし、割り当て型 GO TO ステートメントの中で、または入出力ステートメントの中の形式識別子として 変数を参照する前に、ラベル値を使用して変数を定義しなければなりません。
variable_name の値はラベルによって示される整定数ではない ので、その値をラベルとして使用することはできません。
+---------------------------------Fortran 95---------------------------------+
ASSIGN ステートメントは Fortran 95 からは削除されています。
+-----------------------------End of Fortran 95------------------------------+
例
ASSIGN 30 TO LABEL NUM = 40 GO TO LABEL NUM = 50 ! This statement is not executed 30 ASSIGN 1000 TO IFMT PRINT IFMT, NUM ! IFMT is the format specifier 1000 FORMAT(1X,I4) END
関連情報