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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [ltrans-7.f90] - Blame information for rev 862

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O2 -ftree-loop-linear -fdump-tree-ltrans-all" }`
3			`! { dg-options "-O2 -ftree-loop-linear -fdump-tree-ltrans-all -march=i486" { target { i?86-- && ilp32 } } }`
4
5			`Program FOO`
6			`IMPLICIT INTEGER (I-N)`
7			`IMPLICIT REAL*8 (A-H, O-Z)`
8			`PARAMETER (N1=1335, N2=1335)`
9			`COMMON U(N1,N2), V(N1,N2), P(N1,N2)`
10
11			`PC = 0.0D0`
12			`UC = 0.0D0`
13			`VC = 0.0D0`
14
15			`do I = 1, M`
16			`do J = 1, M`
17			`PC = PC + abs(P(I,J))`
18			`UC = UC + abs(U(I,J))`
19			`VC = VC + abs(V(I,J))`
20			`end do`
21			`U(I,I) = U(I,I) * ( mod (I, 100) /100.)`
22			`end do`
23
24			`write(6,366) PC, UC, VC`
25			`366 format(/, ' PC = ',E12.4,/,' UC = ',E12.4,/,' VC = ',E12.4,/)`
26
27			`end Program FOO`
28
29			`! Please do not XFAIL.`
30			`! { dg-final { scan-tree-dump-times "transformed loop" 1 "ltrans"} }`
31			`! { dg-final { cleanup-tree-dump "ltrans" } }`