目的
派生型 (TYPE) ステートメントは派生型定義の最初のステートメントです。
構文
>>-TYPE--+------------------------+--type_name----------------->< '-+----------------+--::-' '-,--access_spec-' |
規則
access_spec は、派生型定義がモジュールの仕様部分にあるときにだけ指定できます。
type_name は、BYTE 以外のどの組み込みタイプ、また他のアクセス可能派生型と同じ名前にすることはできません。
派生型 (TYPE) ステートメントでラベルを指定すると、そのラベルは派生型定義の有効範囲単位に属します。
対応する END TYPE ステートメントで名前を指定する場合、その名前は type_name と同じでなければなりません。
例
MODULE ABC TYPE, PRIVATE :: SYSTEM ! Derived type SYSTEM can only be accessed SEQUENCE ! within module ABC REAL :: PRIMARY REAL :: SECONDARY CHARACTER(20), DIMENSION(5) :: STAFF END TYPE END MODULE
関連情報