1! { dg-do run }
2! pr 17285
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
6
7program pr17285
8  implicit none
9  integer, dimension(10) :: number = 42
10  integer                :: ctr, ierr
11  namelist /mynml/ number
12  open (10, status = "scratch")
13  write (10,'(A)') &
14    "&mynml number(:)=42,42,42,42,42,42,42,42,42,42,/ "
15  write (10,mynml)
16  write (10,'(A)') "&mynml number(1:10)=10*42 &end"
17  rewind (10)
18  do ctr = 1,3
19    number = 0
20    read (10, nml = mynml, iostat = ierr)
21    if ((ierr /= 0) .or. (any (number /= 42))) &
22      call abort ()
23  end do
24  close(10)
25end program pr17285
26