[Bug fortran/20279] New: gfortran: ICE on valid code, in gfc_get_symbol_decl

["anlauf at hep dot tu-darmstadt dot de" <gcc-bugzilla at gcc dot gnu dot org>]

Hi,

subroutine gfcbug25 ()

  character (len=*), parameter :: endian(2) = (/ &
       "little_endian", &
       "big_endian   "  /)
  write (*,'(a)') endian(1)

end subroutine gfcbug25


dies with:

gfcbug25.f90: In function 'gfcbug25':
gfcbug25.f90:6: internal compiler error: in gfc_get_symbol_decl, at
fortran/trans-decl.c:821

This might be related to PR 18525, but I don't see many things in common.

Cheers,
-ha

-- 
           Summary: gfortran: ICE on valid code, in gfc_get_symbol_decl
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at hep dot tu-darmstadt dot de
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


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