<Example Program>

	Program type_example     Type material         Character(Len=5) :: name         Real :: young,poisson     End Type material     Type (material) steel,concrete     steel%name = 'A36'     steel%young = 200.     steel%poisson = 0.3     concrete = material( 'A36',200.,0.3 )     Print *, steel     Print *, concrete End
	Execution Results   A36     2.0000000E+02   0.3000000   A36     2.0000000E+02   0.3000000