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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-9.f] - Blame information for rev 862

Line No.	Rev	Author	Line
1	302	jeremybenn	`subroutine foo(bar)`
2			`real*8 bar(3,3),coefm`
3			`do ii=istart,iend`
4			`do i=1,21`
5			`bar(k,l)=4`
6			`enddo`
7			`do m=1,ne`
8			`do l=1,3`
9			`do k=1,l`
10			`enddo`
11			`bar(k,l)=bar(k,l)+(v3b-1.d0)`
12			`enddo`
13			`enddo`
14			`do m=1,ne`
15			`do k=1,l`
16			`l = l(v3b*(-coefm))`
17			`enddo`
18			`enddo`
19			`enddo`
20			`end`