文:変数を構造型として宣言します。詳細は,「構造型」を参照してください。
例
! DERIVED.F90 ! 構造型構造体,型変数,割当値を定義します。 TYPE member INTEGER age CHARACTER (LEN = 20) name END TYPE member TYPE (member) :: george TYPE (member) :: ernie george = member( 33, 'George Brown' ) ernie%age = 56 ernie%name = 'Ernie Brown' WRITE (*,*) george WRITE (*,*) ernie END