URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42181.f90] - Blame information for rev 855

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { 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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42181.f90] - Blame information for rev 855