1! { dg-do run }
2! PR69668 Error reading namelist opened with DELIM='NONE'
3program namelist
4  implicit none
5
6  integer,parameter :: tabsz=10
7  integer :: i
8  character(len=10),dimension(tabsz) :: tab
9  namelist/tab_nml/tab
10
11  tab(:)='invalid'
12
13  ! Create a temporary test namelist file
14  open(unit=23,status='scratch',delim='none')
15  write(23,*) "&tab_nml"
16  write(23,*) "tab(1)='in1',"
17  write(23,*) "tab(2)='in2'"
18  write(23,*) "/"
19  rewind(23)
20
21  read(unit=23,nml=tab_nml)
22
23  close(unit=23)
24
25  if (tab(1).ne.'in1') call abort
26  if (tab(2).ne.'in2') call abort
27  if (any(tab(3:tabsz).ne.'invalid')) call abort
28
29end program namelist
30