[Bug libfortran/28607] New: [4.1/4.2 Regression]Namelist read does not handle default case of delim="none"

[jvdelisle at gcc dot gnu dot org]

Fails to read strings in namelist without quote or apostrophe.

     program test_nml

      integer ncalc, npoints, nslices
      character*100 infile, scriptfile, outfile, conffile
      double precision lambda, mesh, zsep, M

      namelist /optics/
c     ! Files
     + infile, scriptfile, outfile,
c     ! Field parameters
     + lambda, ncalc, npoints, mesh, nslices,
c     ! Unused parameters
     + zsep, M
      open(unit=99,file="test_nml.txt",err=10,
     + status='old',delim='none')
      read(unit=99,nml=optics)
      close(unit=99)

      print *, 'All OK.'
      return
 10   print *, 'Error opening file'
      return
 20   print *, 'Error reading namelist'
      return
 30   print *, 'Error end of namelist'
      return

      end

  $optics
  npoints = 151
  mesh = 0.0003836
  lambda = 4e-05
  nslices = 1
  scriptfile = optics.tmp.script
  infile = gaussian.dfloptics.tmp.in
  outfile = optics.tmp.dfl
  M = 1
  $end


-- 
           Summary: [4.1/4.2 Regression]Namelist read does not handle
                    default case of delim="none"
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: jvdelisle at gcc dot gnu dot org
        ReportedBy: jvdelisle at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28607