https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69668
Bug ID: 69668
Summary: Error reading namelist opened with DELIM='NONE'
Product: gcc
Version: 5.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: phil1691 at gmail dot com
Target Milestone: ---
When reading a namelist opened with DELIM='NONE' and filling an array, the
content of the file is not read correctly.
Example:
program namelist
implicit none
integer,parameter :: tabsz=10
integer :: i,ilu
character(len=10),dimension(tabsz) :: tab
namelist/tab_nml/tab
tab(:)='invalid'
open(unit=ilu,file="data.nml",delim='NONE')
READ(UNIT=ilu,NML=tab_nml)
close(unit=ilu)
do i=1,tabsz
print *,'i=',i,' tab(i)=***',tab(i),'***'
end do
end program namelist
with the following namelist (data.nml file):
&tab_nml
tab(1)='in1',
tab(2)='in2'
/
The output is:
> ./a.out
i= 1 tab(i)=***in1 ***
i= 2 tab(i)=***tab(2)='in***
i= 3 tab(i)=***2' ***
i= 4 tab(i)=***invalid ***
i= 5 tab(i)=***invalid ***
i= 6 tab(i)=***invalid ***
i= 7 tab(i)=***invalid ***
i= 8 tab(i)=***invalid ***
i= 9 tab(i)=***invalid ***
i= 10 tab(i)=***invalid ***
This problem appears with GCC 5.3.0 and also 5.2.0.
If DELIM is set to 'APOSTROPHE' or 'QUOTE', the code works as expected.
The fortran standards (95, 2003, 2008) say about the DELIM option: "This mode
has no effect on input".
