$ 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