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

   1 ! { dg-options "-O1 -fgraphite" }
   2
   3 MODULE powell
   4   INTEGER, PARAMETER :: dp=8
   5 CONTAINS
   6   SUBROUTINE newuob (n,npt,x,rhobeg,rhoend,maxfun,xbase,&
   7        xopt,xnew,xpt,fval,gq,hq,pq,bmat,zmat,ndim,d,vlag,w,opt)
   8     REAL(dp), DIMENSION(npt, *), &
   9       INTENT(inout)                          :: xpt
  10     REAL(dp), DIMENSION(*), INTENT(inout)    :: fval, gq, hq, pq
  11 120 IF (dsq <= 1.0e-3_dp*xoptsq) THEN
  12        DO k=1,npt
  13           DO i=1,n
  14              gq(i)=gq(i)+temp*xpt(k,i)
  15           END DO
  16        END DO
  17     END IF
  18   END SUBROUTINE newuob
  19 END MODULE powell