A recent gfortran ICEs on the following code:
integer, parameter :: i=1
real, parameter :: k=TRANSFER(i,1.0)
integer :: j=TRANSFER(k,i)
character(LEN=2), parameter :: a="a "
real, dimension(2,2), parameter :: r=1.0
character(LEN=4) :: b=REPEAT(a,2)
real, dimension(4) :: l=RESHAPE(r,(/4/))
character(LEN=3) :: c=TRIM("a ")
IF (b.NE."a a ") CALL ABORT()
IF (ANY(l.NE.1.0)) CALL ABORT()
IF (c.NE."a ") CALL ABORT()
IF (j.NE.i) CALL ABORT()
END
--
Summary: ICE on valid code with gfortran
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: jv244 at cam dot ac dot uk
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31218
