[Bug libfortran/18122] gfortran internal error in namelist read

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2005-01-22 00:17 -------
$ 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-4.0 namel-tst.f90
$ ./a.out < nam.inp
At line 22 of file namel-tst.f90
Internal Error: Can not match a namelist variable

-- 


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