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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [debug/] [pr43166.f] - Blame information for rev 749

Line No.	Rev	Author	Line
1	694	jeremybenn	`C PR debug/43166`
2			`C { dg-do compile }`
3			`C { dg-options "-O" }`
4			`SUBROUTINE FOO ()`
5			`INTEGER V1`
6			`COMMON // V1`
7			`END`
8			`SUBROUTINE BAR ()`
9			`INTEGER V0,V1,V2,V3`
10			`COMMON // V1(4),V2(85,4),V3`
11			`DO V3=1,V1(1)`
12			`V0=V2(V3,1)`
13			`END DO`
14			`END`