END TYPE

目的

END TYPE ステートメントは、派生型の定義の完了を示します。

構文



>>-END TYPE--+-----------+-------------------------------------><
             '-type_name-'
 
 

規則

type_name を指定した場合、その名前は対応する派生型ステートメント内の type_name と一致しなければなりません。

END TYPE ステートメント上にラベルを 指定すると、そのラベルは派生型定義の有効範囲単位に属します。

TYPE A
  INTEGER :: B
  REAL :: C
END TYPE A

関連情報

IBM Copyright 2003