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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! Formerly known as ltrans-7.f90`
2
3			`Program FOO`
4			`IMPLICIT INTEGER (I-N)`
5			`IMPLICIT REAL*8 (A-H, O-Z)`
6			`PARAMETER (N1=1335, N2=1335)`
7			`COMMON U(N1,N2), V(N1,N2), P(N1,N2)`
8
9			`PC = 0.0D0`
10			`UC = 0.0D0`
11			`VC = 0.0D0`
12
13			`do I = 1, M`
14			`do J = 1, M`
15			`PC = PC + abs(P(I,J))`
16			`UC = UC + abs(U(I,J))`
17			`VC = VC + abs(V(I,J))`
18			`end do`
19			`U(I,I) = U(I,I) * ( mod (I, 100) /100.)`
20			`end do`
21
22			`write(6,366) PC, UC, VC`
23			`366 format(/, ' PC = ',E12.4,/,' UC = ',E12.4,/,' VC = ',E12.4,/)`
24
25			`end Program FOO`
26
27			`! { dg-final { scan-tree-dump-times "will be interchanged" 1 "graphite" } }`
28			`! { dg-final { cleanup-tree-dump "graphite" } }`