[Bug fortran/35627] New: namelist read error

[pletzer at txcorp dot com]

Hi: The following program fails to read the namelist file below.

test program:
program test
  implicit none
    LOGICAL :: nlco(200)  ! (1:nbeam)
    REAL*8 :: xlbtna(200)  ! (1:nbeam)
  NAMELIST/nbdrive_naml/ nlco,xlbtna
    INTEGER :: nbshapa(200)  ! (1:nbeam)
  NAMELIST/nbdrive_naml/ nbshapa
  open(10, file='t.nml')
  read(10, nbdrive_naml)
  write(*,nbdrive_naml)
  close(10)
end program test

file t.nml:
&nbdrive_naml
nlco = 4*.TRUE.
xlbtna = 802.8, 802.8, 802.8, 802.8
nbshapa = 4*1
/

error message:
[EMAIL PROTECTED] namelist2]$ /contrib/gcc-4.3/bin/gfortran t.f90
[EMAIL PROTECTED] namelist2]$ ./a.out
At line 9 of file t.f90 (unit = 10, file = 't.nml')
Fortran runtime error: Bad data for namelist object xlbtna

Thanks for your help.


-- 
           Summary: namelist read error
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: pletzer at txcorp dot com
 GCC build triplet: GNU Fortran (GCC) 4.3.0
  GCC host triplet: Linux quartic.txcorp.com 2.6.19-1.2288.fc5
GCC target triplet: x86_64 x86_64 x86_64 GNU/Linux


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