URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr42166.f90] - Blame information for rev 384

Details | Compare with Previous | View Log


! { dg-options "-O2 -g" }
 
MODULE powell
  INTEGER, PARAMETER :: dp=8
CONTAINS
  SUBROUTINE newuob (n,  bmat,  ndim,  d,  vlag,  w, npt)
    REAL(dp), DIMENSION(ndim, *), INTENT(inout) :: bmat
    REAL(dp), DIMENSION(*), INTENT(inout)    :: d, vlag, w
    REAL(dp) :: sum
    INTEGER, INTENT(in) :: npt
    DO j=1,n
       jp=npt+j
       DO k=1,n
          sum=sum+bmat(jp,k)*d(k)
       END DO
       vlag(jp)=sum
    END DO
  END SUBROUTINE newuob
END MODULE powell
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-options "-O2 -g" }`
2
3			`MODULE powell`
4			`INTEGER, PARAMETER :: dp=8`
5			`CONTAINS`
6			`SUBROUTINE newuob (n, bmat, ndim, d, vlag, w, npt)`
7			`REAL(dp), DIMENSION(ndim, *), INTENT(inout) :: bmat`
8			`REAL(dp), DIMENSION(*), INTENT(inout) :: d, vlag, w`
9			`REAL(dp) :: sum`
10			`INTEGER, INTENT(in) :: npt`
11			`DO j=1,n`
12			`jp=npt+j`
13			`DO k=1,n`
14			`sum=sum+bmat(jp,k)*d(k)`
15			`END DO`
16			`vlag(jp)=sum`
17			`END DO`
18			`END SUBROUTINE newuob`
19			`END MODULE powell`
20

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr42166.f90] - Blame information for rev 384