! { dg-do run }
program namelist_delim_none
   implicit none
   character(512) :: internal_unit
   character(5), dimension(5) :: mystring
   real, dimension(4) :: somenum
   integer :: i
   namelist /mylist/ mystring, somenum
   mystring(1)='mon'
   mystring(2)='tue'
   mystring(3)='wed'
   mystring(4)='thu'
   mystring(5)='fri'
   somenum = reshape(source = (/ 2, 3, 5, 7 /), shape=shape(somenum))

   open(unit=10,status='scratch',delim='none')
   write(10, mylist)
   rewind(10)
   mystring = "xxxxx"
   read(10,mylist)
   if (any(mystring /= (/ 'mon', 'tue', 'wed', 'thu', 'fri' /))) call abort
   rewind(10)
   do i=1,5
     read(10,'(a)') internal_unit
     if (scan(internal_unit,"""'").ne.0) call abort
   end do
   close(10)
end program