blob: ff61551828b46c87988d7d9d0fdea330ebb9d4d9 [file] [log] [blame]
! { dg-do run }
! PR69668 Error reading namelist opened with DELIM='NONE'
program namelist
implicit none
integer,parameter :: tabsz=10
integer :: i
character(len=10),dimension(tabsz) :: tab
namelist/tab_nml/tab
tab(:)='invalid'
! Create a temporary test namelist file
open(unit=23,status='scratch',delim='none')
write(23,*) "&tab_nml"
write(23,*) "tab(1)='in1',"
write(23,*) "tab(2)='in2'"
write(23,*) "/"
rewind(23)
read(unit=23,nml=tab_nml)
close(unit=23)
if (tab(1).ne.'in1') STOP 1
if (tab(2).ne.'in2') STOP 2
if (any(tab(3:tabsz).ne.'invalid')) STOP 3
end program namelist