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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O2 -fgraphite-identity" }`
2
3			`subroutine foo (ldmx,ldmy,nx,ny,v)`
4			`implicit real*8 (a-h, o-z)`
5			`dimension v(5,ldmx,ldmy,*)`
6			`dimension tmat(5,5)`
7
8			`k = 2`
9			`do j = 2, ny-1`
10			`do i = 2, nx-1`
11			`do ip = 1, 4`
12			`do m = ip+1, 5`
13			`v(m,i,j,k) = v(m,i,j,k) * m`
14			`end do`
15			`end do`
16			`do m = 5, 1, -1`
17			`do l = m+1, 5`
18			`v(m,i,j,k) = v(l,i,j,k)`
19			`end do`
20			`v(m,i,j,k) = m`
21			`end do`
22			`end do`
23			`end do`
24			`return`
25			`end`