[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
