目的
ASSIGN ステートメントはステートメント・ラベルを整変数に割り当てます。
構文
>>-ASSIGN--stmt_label--TO--variable_name----------------------->< |
規則
指定されたステートメント・ラベルを含むステートメントは ASSIGN ステートメントと同じ有効範囲単位に存在しなければなりません。
ラベルの値で定義した整変数を、同じ、または異なるラベル、または整数値で再定義できます。ただし、割り当て済みの GO TO ステートメントの中で、または I/O ステートメントの中の形式識別子として変数を参照する前に、ラベル値を使用して変数を定義しなければなりません。
variable_name の値はラベルによって示される整定数ではないので、その値をラベルとして使用することはできません。
+---------------------------------Fortran 95---------------------------------+
ASSIGN ステートメントは Fortran 95 からは削除されています。
+------------------------------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
関連情報