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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O2 -fgraphite-identity" }`
2
3			`parameter(in = 128+5`
4			`& , jn = 128+5`
5			`& , kn = 128+5)`
6			`real*8 d (in,jn,kn)`
7			`real*8 dcopy(in,jn,kn)`
8			`call pdv (is, dcopy)`
9			`do k=ks,ke`
10			`do j=je+1,je+2`
11			`do i=is-2,ie+2`
12			`dcopy(i,j,k) = d(i,j,k)`
13			`enddo`
14			`enddo`
15			`enddo`
16			`do k=ks,ke`
17			`do j=js,je`
18			`do i=is-2,is-1`
19			`dcopy(i,j,k) = d(i,j,k)`
20			`enddo`
21			`enddo`
22			`enddo`
23			`end`