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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [claus.f] - Blame information for rev 801

Line No.	Rev	Author	Line
1	694	jeremybenn	`c { dg-do run }`
2			`PROGRAM TEST`
3			`REAL AB(3)`
4			`do i=1,3`
5			`AB(i)=i`
6			`enddo`
7			`k=1`
8			`n=2`
9			`ind=k-n+2`
10			`if (ind /= 1) call abort`
11			`if (ab(ind) /= 1) call abort`
12			`if (k-n+2 /= 1) call abort`
13			`if (ab(k-n+2) /= 1) call abort`
14			`END`