2 ! Tests simple derived types.
3 ! Provided by Paul Thomas - pault@gcc.gnu.org
8 integer, dimension(2) :: yi = (/8,9/)
9 real, dimension(2) :: yx = (/80.,90./)
10 character(len=2) :: ych = "xx"
14 integer, dimension(2) :: myi = (/800,900/)
15 real, dimension(2) :: myx = (/8000.,9000./)
16 character(len=2) :: mych = "zz"
17 type(yourtype) :: my_yourtype
23 namelist /mynml/ zeros, z
28 open(10,status="scratch", delim="apostrophe")
29 write (10, nml=mynml, iostat=ier)
30 if (ier.ne.0) call abort
33 read (10, NML=mynml, IOSTAT=ier)
34 if (ier.ne.0) call abort
37 end program namelist_13