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