派生型別定義

Fortran 2003 引入了物件導向程式設計的支援。此功能允許利用現代程式設計技術。派生型別使用以下格式定義：

TYPE [[, attr-list] :: ] name [(name-list)]
   [def-stmts]
   [PRIVATE statement or SEQUENCE statement]. . .
   [component-definition]. . .
   [procedure-part]
END TYPE [name]

哪裡，

• attr-list - 屬性說明符列表
• name - 派生資料型別的名稱
• name-list - 由逗號分隔的型別引數名稱列表
• def-stmts - 名稱列表中指定的型別引數的一個或多個 INTEGER 宣告
• component-definition - 定義派生型別元件的一個或多個型別宣告語句或過程指標語句
• procedure-part - 一個 CONTAINS 語句，可選地後跟一個 PRIVATE 語句，以及一個或多個過程繫結語句

例：

type shape
    integer::color
end type shape