This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/41167] New: ICE with PACK() and string concatenation
- From: "anlauf at gmx dot de" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 25 Aug 2009 16:05:41 -0000
- Subject: [Bug fortran/41167] New: ICE with PACK() and string concatenation
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
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