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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`C PR tree-optimization/36922`
2			`C { dg-do compile }`
3			`C { dg-options "-O2 -ftree-loop-linear" }`
4			`SUBROUTINE PR36922(N,F,Z,C)`
5			`IMPLICIT DOUBLE PRECISION(A-H,O-Z)`
6			`DIMENSION C(23821),Z(0:2N+1),F(0:2N)`
7			`I=0`
8			`DO L=0,N`
9			`DO M=0,L`
10			`DO M2=M,L`
11			`I=I+1`
12			`C(I)=F(L+M)F(L-M)Z(L-M2)/(F(M2+M)F(M2-M)F(L-M2)*F(L-M2))`
13			`ENDDO`
14			`ENDDO`
15			`ENDDO`
16			`END`