3 ! Test that namelist can read its own output.
4 ! At the same time, check arrays and different terminations
5 ! Based on example provided by paulthomas2@wanadoo.fr
9 integer, dimension(10) :: number = 42
11 namelist /mynml/ number
12 open (10, status = "scratch")
14 "&mynml number(:)=42,42,42,42,42,42,42,42,42,42,/ "
16 write (10,'(A)') "&mynml number(1:10)=10*42 &end"
20 read (10, nml = mynml, iostat = ierr)
21 if ((ierr /= 0) .or. (any (number /= 42))) &