| !{ dg-do run } |
| ! Tests simple derived types. |
| ! Provided by Paul Thomas - pault@gcc.gnu.org |
| |
| program namelist_13 |
| |
| type :: yourtype |
| integer, dimension(2) :: yi = (/8,9/) |
| real, dimension(2) :: yx = (/80.,90./) |
| character(len=2) :: ych = "xx" |
| end type yourtype |
| |
| type :: mytype |
| integer, dimension(2) :: myi = (/800,900/) |
| real, dimension(2) :: myx = (/8000.,9000./) |
| character(len=2) :: mych = "zz" |
| type(yourtype) :: my_yourtype |
| end type mytype |
| |
| type(mytype) :: z |
| integer :: ier |
| integer :: zeros(10) |
| namelist /mynml/ zeros, z |
| |
| zeros = 0 |
| zeros(5) = 1 |
| |
| open(10,status="scratch", delim="apostrophe") |
| write (10, nml=mynml, iostat=ier) |
| if (ier.ne.0) STOP 1 |
| |
| rewind (10) |
| read (10, NML=mynml, IOSTAT=ier) |
| if (ier.ne.0) STOP 2 |
| close (10) |
| |
| end program namelist_13 |
| |
