[Bug libfortran/13738] New: Run-time error: "Internal error" on correct input to READ with NAMELIST

[lei at il dot ibm dot com]

Version: tree-ssa-20040112.tar

The following program namelist_bug.f90:

      NAMELIST /GALGELINPUT/ A,B,C
      READ (5,NML=GALGELINPUT)
      WRITE (6, NML=GALGELINPUT)
      END

Compiles okay, but when run with 
the input &GALGELINPUT A = 1., B = 2., C = 3./
reports Internal error:

% gfortran -ffixed-form --static namelist_bug.f90
% a.out
&GALGELINPUT A = 1., B = 2., C = 3./
At line 2 of file namelist_bug.f90
Internal Error: Can not found a valid namelist var!

Same program, when compiled with g77, produces the
correct output:

% g77 namelist_bug.f
% a.out
&GALGELINPUT A = 1., B = 2., C = 3./
&GALGELINPUT 
 A =  1., 
 B =  2., 
 C =  3./

-- 
           Summary: Run-time error: "Internal error" on correct input to
                    READ with NAMELIST
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: lei at il dot ibm dot com
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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