1! { dg-do run }
2! PR71123 Namelist read failure on Windows
3      implicit none
4      integer :: i, ierr
5      real(8), dimension(30) :: senid, res
6      character(2) :: crlf = char(13) // char(10)
7      namelist /fith/ senid
8      do i=1,30
9         res(i) = i
10      enddo
11      senid = 99.0
12      open(unit=7,file='test.out',form='formatted',
13     *         status='new',action='readwrite', access='stream')
14      write(7,'(a)') "&fith" // crlf
15      write(7,'(a)') "senid=  1.0 , 2.0 , 3.0 , 4.0  , 5.0 ," // crlf
16      write(7,'(a)') "6.0 , 7.0 ,  8.0 ,  9.0 ,  10.0 , 11.0 ," // crlf
17      write(7,'(a)') "12.0 , 13.0 , 14.0 , 15.0 , 16.0 , 17.0 ," // crlf
18      write(7,'(a)') "18.0 , 19.0 , 20.0 , 21.0 , 22.0 , 23.0 ," // crlf
19      write(7,'(a)') "24.0 , 25.0 , 26.0 , 27.0 , 28.0 , 29.0 ," // crlf
20      write(7,'(a)') "30.0 ," // crlf
21      write(7,'(a)') "/" // crlf
22      close(7)
23      open(unit=7,file='test.out',form='formatted')
24      read(7,nml=fith, iostat=ierr)
25      close(7, status="delete")
26      if (ierr.ne.0) STOP 1
27      if (any(senid.ne.res)) STOP 2
28      end
29