[Bug fortran/41167] New: ICE with PACK() and string concatenation

[anlauf at gmx dot de]

Hi,

the following code leads to an ICE:

% cat gfcbug88.f90
program gfcbug88
  implicit none
  type t
     character(len=8) :: name
  end type t
  type(t) ,parameter :: obstyp(2)= (/ t ('A'), t ('B') /)

  print *, pack (" "//obstyp(:)% name, (/ .true., .false. /))  ! ICE
 !print *, pack (obstyp(:)% name, (/ .true., .false. /))       ! Works
end program gfcbug88
% gfc gfcbug88.f90
gfcbug88.f90: In function 'gfcbug88':
gfcbug88.f90:1:0: internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:997

Reported line numbers vary with the gfortran version, but the
above ICE is from a recent trunk build by Tobias Burnus.

Cheers,
-ha


-- 
           Summary: ICE with PACK() and string concatenation
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at gmx dot de


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