ASSIGN

目的

ASSIGN ステートメントはステートメント・ラベルを整変数に割り当てます。

構文



>>-ASSIGN--stmt_label--TO--variable_name-----------------------><
 
 

stmt_label
ASSIGN ステートメントが含まれている有効範囲単位で、実行可能ステートメントまたは FORMAT ステートメントのステートメント・ラベルを指定します。

variable_name
スカラー INTEGER(4) または INTEGER(8) 変数 の名前です。

規則

指定されたステートメント・ラベルが含まれているステートメントは、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

関連情報

IBM Copyright 2003