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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR tree-optimization/29581`
2			`! { dg-do run }`
3			`! { dg-options "-O2 -ftree-loop-linear" }`
4
5			`SUBROUTINE FOO (K)`
6			`INTEGER I, J, K, A(5,5), B`
7			`COMMON A`
8			`A(1,1) = 1`
9			`10 B = 0`
10			`DO 30 I = 1, K`
11			`DO 20 J = 1, K`
12			`B = B + A(I,J)`
13			`20 CONTINUE`
14			`A(I,I) = A(I,I) * 2`
15			`30 CONTINUE`
16			`IF (B.GE.3) RETURN`
17			`GO TO 10`
18			`END SUBROUTINE`
19
20			`PROGRAM BAR`
21			`INTEGER A(5,5)`
22			`COMMON A`
23			`CALL FOO (2)`
24			`IF (A(1,1).NE.8) CALL ABORT`
25			`A(1,1) = 0`
26			`IF (ANY(A.NE.0)) CALL ABORT`
27			`END`