URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [debug/] [pr43166.f] - Blame information for rev 302

Line No.	Rev	Author	Line
1	302	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`