Fortran 派生类型定义

示例

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-派生数据类型的名称

  • 名称列表-类型参数名称列表,以逗号分隔

  • def-stmts-名称列表中命名的类型参数的一个或多个INTEGER声明

  • 组件定义-定义派生类型的组件的一个或多个类型声明语句或过程指针语句

  • procedure-part -CONTAINS语句,可以选择后面跟一个PRIVATE语句,以及一个或多个过程绑定语句

例:

type shape
    integer :: color
end type shape