[Bug fortran/69668] New: Error reading namelist opened with DELIM='NONE'

[phil1691 at gmail dot com]

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".