$ cat test.f90
subroutine ld_mod (sinc,einc)
implicit real(kind(0d0)) (a-h,o-z)
real(kind(0d0)), intent(in) :: sinc(6), einc(6)
real(kind(0d0)), parameter :: OneUpon3 = (1.0D+0 / 3.0D+0)
real(kind(0d0)), parameter :: TwoUpon3 = (2.0D+0 / 3.0D+0)
Bulk_Strain_Inc = Einc(1) + Einc(2) + Einc(3)
DEmag2 = -Bulk_Strain_Inc*Bulk_Strain_Inc
DO i = 1,6
DEmag2 = DEmag2 + Einc(i)*Einc(i)
ENDDO
IF (DEmag2 .GT. 0.0) THEN
DO i = 1,6
DSmag2 = DSmag2 + Sinc(i)*Sinc(i)
ENDDO
ENDIF
RETURN
END
$ elm3b11:/home/pawar> /opt/gcc-nightly/trunk-20060323/bin/gfortran -O2 -m32
test.f90
test.f90: In function ld_mod:
test.f90:1: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
backtrace shows, in execute_pass_one(), pass->name="phicprop"
--
Summary: ICE on valid code (tree type is null in tree-gimple.c)
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: middle-end
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: uttamp at us dot ibm dot com
GCC build triplet: powerpc64-linux
GCC host triplet: powerpc64-linux
GCC target triplet: powerpc64-linux
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26836