$ 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

Reply via email to