[Bug fortran/13940] New: [gfortran] F77 code accepted by g77 causes ICE in gfortran

[bdavis9659 at comcast dot net]

The subroutine listed below causes an ICE in gfortran.  Compiles OK with
g77.

No declaration is made as to the "standard comforming" status of this code, only
that it is accepted by g77 ( and by SEL/GOULD FORT77)

$ cat dmubar.F
      SUBROUTINE DMUBAR
      INTEGER*4 DMUNDTAB(25)
      DATA DMUNDTAB            /X'40000000',X'20000000',X'10000000',
     &               X'08000000',X'04000000',X'02000000',X'01000000',
     &               X'00800000',X'00400000',X'00200000',X'00100000',
     &               X'00080000',X'00040000',X'00020000',X'00010000',
     &               X'00008000',X'00004000',X'00002000',X'00001000',
     &               X'00000800',X'00000400',X'00000200',X'00000100',
     &               X'00000080',X'00000040'/
      II = DMUNDTAB(I)
      RETURN
      END


$ /usr/local/bin/gfortran -c dmubar.F
/tmp/ccmPnKj3.f:0: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


$ g77 -c dmubar.F


$ /usr/local/bin/gfortran --version
GNU Fortran 95 (GCC 3.5-tree-ssa 20040128 (merged 20040102))

-- 
           Summary: [gfortran] F77 code accepted by g77 causes ICE in
                    gfortran
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis9659 at comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org


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