------- Comment #7 from hjl at lucon dot org 2006-11-22 19:34 ------- Reduced:
[EMAIL PROTECTED] 29921]$ cat bar.f90 SUBROUTINE foo(DPRS,DEN,LBOT,LTOP,KTS,KTE) IMPLICIT NONE INTEGER,INTENT(IN) :: KTS,KTE INTEGER,INTENT(OUT) :: LBOT,LTOP REAL,DIMENSION(KTS:KTE),INTENT(IN) :: DPRS REAL, INTENT(IN) :: DEN REAL :: PSUM, SUMDP INTEGER :: L SUMDP=0. DO L=LTOP,LBOT SUMDP=SUMDP+DPRS(L) ENDDO SUMDP=1./SUMDP PSUM =0. DO L=LTOP,LBOT PSUM=PSUM+DPRS(L) ENDDO PSUM =PSUM*SUMDP IF(-DEN/PSUM.LT.5.E-5)THEN LBOT=0 ENDIF END SUBROUTINE foo [EMAIL PROTECTED] 29921]$ -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29921