TYPE

:変数を構造型として宣言します。詳細は,「構造型」を参照してください。

	! 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