目的
END TYPE ステートメントは、派生型の定義の完了を示します。
構文
>>-END TYPE--+-----------+------------------------------------->< '-type_name-' |
規則
type_name を指定した場合、その名前は対応する派生型ステートメント内の type_name と一致しなければなりません。
END TYPE ステートメント上にラベルを 指定すると、そのラベルは派生型定義の有効範囲単位に属します。
例
TYPE A INTEGER :: B REAL :: C END TYPE A
関連情報