------- 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

Reply via email to