gcc/testsuite/gfortran.dg/graphite/pr42185.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fgraphite -O -ffast-math" }
   3
   4 MODULE powell
   5   INTEGER, PARAMETER :: dp=8
   6 CONTAINS
   7   SUBROUTINE trsapp (n,npt,xopt,xpt,gq,hq,pq,delta,step,d,g,hd,hs,crvmin)
   8     REAL(dp), DIMENSION(*), INTENT(INOUT)    :: step, d, g, hd, hs
   9     LOGICAL                                  :: jump1, jump2
  10     REAL(dp) :: alpha, angle, angtest, bstep, cf, cth, dd, delsq, dg, dhd, &
  11       reduc, sg, sgk, shs, ss, sth, temp, tempa, tempb
  12     DO i=1,n
  13        dd=dd+d(i)**2
  14     END DO
  15     mainloop : DO
  16        IF ( .NOT. jump2 ) THEN
  17           IF ( .NOT. jump1 ) THEN
  18              bstep=temp/(ds+SQRT(ds*ds+dd*temp))
  19              IF (alpha < bstep) THEN
  20                 IF (ss < delsq) CYCLE mainloop
  21              END IF
  22              IF (gg <= 1.0e-4_dp*ggbeg) EXIT mainloop
  23           END IF
  24        END IF
  25     END DO mainloop
  26   END SUBROUTINE trsapp
  27 END MODULE powell
  28 ! { dg-final { cleanup-modules "powell" } }