1! { dg-do run }
2program namelist_delim_none
3   implicit none
4   character(512) :: internal_unit
5   character(5), dimension(5) :: mystring
6   real, dimension(4) :: somenum
7   integer :: i
8   namelist /mylist/ mystring, somenum
9   mystring(1)='mon'
10   mystring(2)='tue'
11   mystring(3)='wed'
12   mystring(4)='thu'
13   mystring(5)='fri'
14   somenum = reshape(source = (/ 2, 3, 5, 7 /), shape=shape(somenum))
15
16   open(unit=10,status='scratch',delim='none')
17   write(10, mylist)
18   rewind(10)
19   mystring = "xxxxx"
20   rewind(10)
21   do i=1,5
22     read(10,'(a)') internal_unit
23     if (i.eq.2 .and. internal_unit .ne. " MYSTRING=mon  tue  wed  thu  fri  ,") call abort
24     if (scan(internal_unit,"""'").ne.0) print *, internal_unit
25   end do
26   close(10)
27end program
28