| c{ dg-do run } |
| c This program repeats many of the same tests as test_nml_1 but for integer |
| c instead of real. It also tests repeat nulls, comma delimited character read, |
| c a triplet qualifier, a range with an assumed start, a quote delimited string, |
| c a qualifier with an assumed end and a fully explicit range. It also tests |
| c that integers and characters are successfully read back by namelist. |
| c Provided by Paul Thomas - pault@gcc.gnu.org |
| |
| program namelist_12 |
| |
| integer x(10) |
| integer(kind=8) xx |
| integer ier |
| character*10 ch , check |
| namelist /mynml/ x, xx, ch |
| |
| c set debug = 0 or 1 in the namelist! (line 33) |
| |
| do i = 1 , 10 |
| x(i) = -1 |
| end do |
| x(6) = 6 |
| x(10) = 10 |
| xx = 0 |
| ch ="zzzzzzzzzz" |
| check="abcdefghij" |
| |
| open (10,status="scratch", delim="apostrophe") |
| write (10, '(a)') "!mynml" |
| write (10, '(a)') " " |
| write (10, '(a)') "&mynml x(7) =+99 x=1, 2 ," |
| write (10, '(a)') " 2*3, ,, 2* !comment" |
| write (10, '(a)') " 9 ch='qqqdefghqq' , x(8:7:-1) = 8 , 7" |
| write (10, '(a)') " ch(:3) =""abc""," |
| write (10, '(a)') " ch(9:)='ij' x(4:5)=4 ,5 xx = 42/" |
| rewind (10) |
| |
| read (10, nml=mynml, IOSTAT=ier) |
| if (ier.ne.0) call abort |
| rewind (10) |
| |
| write (10, nml=mynml, iostat=ier) |
| if (ier.ne.0) call abort |
| rewind (10) |
| |
| read (10, NML=mynml, IOSTAT=ier) |
| if (ier.ne.0) call abort |
| close (10) |
| |
| do i = 1 , 10 |
| if ( abs( x(i) - i ) .ne. 0 ) call abort () |
| if ( ch(i:i).ne.check(I:I) ) call abort |
| end do |
| if (xx.ne.42) call abort () |
| end program |