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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr37852.f90] - Blame information for rev 774

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


! { dg-options "-O2 " }
 
PROGRAM TEST_FPU
CHARACTER (LEN=36) :: invert_id(1) = &
                      (/ 'Test1 - Gauss 2000 (101x101) inverts'/)
END PROGRAM TEST_FPU
 
SUBROUTINE Gauss (a,n)
INTEGER, PARAMETER :: RK8 = SELECTED_REAL_KIND(15, 300)
REAL(RK8) :: a(n,n)
INTEGER ::  ipvt(n)
a(:,ipvt) = b
END SUBROUTINE Gauss

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O2 " }`
2
3			`PROGRAM TEST_FPU`
4			`CHARACTER (LEN=36) :: invert_id(1) = &`
5			`(/ 'Test1 - Gauss 2000 (101x101) inverts'/)`
6			`END PROGRAM TEST_FPU`
7
8			`SUBROUTINE Gauss (a,n)`
9			`INTEGER, PARAMETER :: RK8 = SELECTED_REAL_KIND(15, 300)`
10			`REAL(RK8) :: a(n,n)`
11			`INTEGER :: ipvt(n)`
12			`a(:,ipvt) = b`
13			`END SUBROUTINE Gauss`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr37852.f90] - Blame information for rev 774