XL Fortran for AIX V8.1.1

ランゲージ・リファレンス

ASSIGN

目的

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

構文



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

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

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

規則

指定されたステートメント・ラベルを含むステートメントは 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

関連情報


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]