[Bug tree-optimization/29921] [4.3 regression]: internal compiler error: in set_lattice_value, at tree-ssa-ccp.c:437

[hjl at lucon dot org]

------- Comment #5 from hjl at lucon dot org  2006-11-22 14:50 -------
Another testcase:

[EMAIL PROTECTED] build_base_o2.0000]$ cat bar.f90
      SUBROUTINE foo(DPRS,LBOT,LTOP,KTS,KTE)
      IMPLICIT NONE
      INTEGER,INTENT(IN) :: KTS,KTE
      INTEGER,INTENT(OUT) :: LBOT,LTOP
      REAL,DIMENSION(KTS:KTE),INTENT(IN) :: DPRS
      REAL,DIMENSION(KTS:KTE) :: FPK,TREFK
      REAL :: PSUM, QOTSUM, POTSUM, SUMDP, TRFKL,DPKL,DST
      REAL :: FPTK, RDPSUM, RTBAR, DEN, DQREF
      INTEGER :: L
      SUMDP=0.
      DO L=LTOP,LBOT
        SUMDP=SUMDP+DPRS(L)
      ENDDO
      RDPSUM=1./SUMDP
      DO L=LTOP,LBOT
        TREFK(L)=TRFKL
      ENDDO
      PSUM  =0.
      QOTSUM=0.
      DST   =0.
      FPTK  =FPK(LTOP)
      DO L=LTOP,LBOT
        DPKL  =FPK(L)-FPTK
        PSUM  =DPKL *DPRS(L)+PSUM
        POTSUM=DPKL    *RTBAR*DPRS(L)+POTSUM
      ENDDO
      PSUM  =PSUM*RDPSUM
      IF(DST.GT.0.)THEN
        GO TO 800
      ENDIF
      IF(-DEN/PSUM.LT.5.E-5)THEN
        LBOT=0
        GO TO 800
      ENDIF
      IF(DQREF.LT.0.)THEN
        GO TO 800
      ENDIF
  800 CONTINUE
      END SUBROUTINE foo
[EMAIL PROTECTED] build_base_o2.0000]$ /usr/gcc-4.3/bin/gfortran -c -o
module_cu_bmj.fppized.o -I. -I./netcdf/include  -O2 -ffast-math       
-DSPEC_CPU_LINUX -DSPEC_CPU_CASE_FLAG -DSPEC_CPU_LOGICAL_STRICT
-frecord-marker=4  bar.f90
bar.f90: In function âfooâ:
bar.f90:1: internal compiler error: in set_lattice_value, at tree-ssa-ccp.c:437
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
[EMAIL PROTECTED] build_base_o2.0000]$


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29921