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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`C PR tree-optimization/39516`
2			`C { dg-do compile }`
3			`C { dg-options "-O2 -ftree-loop-linear" }`
4			`SUBROUTINE SUB(A, B, M)`
5			`IMPLICIT NONE`
6			`DOUBLE PRECISION A(20,20), B(20)`
7			`INTEGER*8 I, J, K, M`
8			`DO I=1,M`
9			`DO J=1,M`
10			`A(I,J)=A(I,J)+1`
11			`END DO`
12			`END DO`
13			`DO K=1,20`
14			`DO I=1,M`
15			`DO J=1,M`
16			`B(I)=B(I)+A(I,J)`
17			`END DO`
18			`END DO`
19			`END DO`
20			`END SUBROUTINE`