[Bug fortran/18591] New: gfortran: internal error with namelist

["debian-gcc at lists dot debian dot org" <gcc-bugzilla at gcc dot gnu dot org>]

[forwarded from http://bugs.debian.org/277845]

rechecked with HEAD CVS 20041113.

  Matthias

The bug submitter writes:

$ cat namel.inp 
&foo 
a=  2.300000    ,/ 
$ cat namel-tst.f90 
program sechs_w 
  implicit none 
 
  integer, parameter :: dr=selected_real_kind(15) 
 
  integer, parameter :: nkmax=6 
  real(kind=dr) :: rb(nkmax) 
  integer :: z
  real(kind=dr) :: dg 
  real(kind=dr) :: a 
  real(kind=dr) :: da 
  real(kind=dr) :: delta 
  real(kind=dr) :: s,t 
  integer :: nk 
  real(kind=dr) alpha0 
 
  real(kind=dr) :: phi, phi0, rad, rex, zk, z0, drdphi, dzdphi 
 
  namelist /schnecke/ z, dg, a, t, delta, s, nk, rb, alpha0 
 
  read (*,schnecke) 
  write (*,schnecke) 

end program sechs_w 
$ cat nam.inp 
 &SCHNECKE 
  z=1, 
  dg=58.4, 
  a=48., 
  delta=0.4, 
  s=0.4, 
  nk=6, 
  rb=60, 0, 40, 
  alpha0=20., 
 / 
$ gfortran namel-tst.f90 
$ ./a.out < nam.inp 
At line 22 of file namel-tst.f90 
Internal Error: Can not match a namelist variable

-- 
           Summary: gfortran: internal error with namelist
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: debian-gcc at lists dot debian dot org
                CC: gcc-bugs at gcc dot gnu dot org


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