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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [common_2.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! PR fortran/16336 -- the two common blocks used to clash`	`! PR fortran/16336 -- the two common blocks used to clash`
`MODULE bar`	`MODULE bar`
`INTEGER :: I`	`INTEGER :: I`
`COMMON /X/I`	`COMMON /X/I`
`contains`	`contains`
`subroutine set_i()`	`subroutine set_i()`
`i = 5`	`i = 5`
`end subroutine set_i`	`end subroutine set_i`
`END MODULE bar`	`END MODULE bar`

`USE bar`	`USE bar`
`INTEGER :: J`	`INTEGER :: J`
`COMMON /X/J`	`COMMON /X/J`
`j = 1`	`j = 1`
`i = 2`	`i = 2`
`if (j.ne.i) call abort()`	`if (j.ne.i) call abort()`
`if (j.ne.2) call abort()`	`if (j.ne.2) call abort()`
`call set_i()`	`call set_i()`
`if (j.ne.5) call abort()`	`if (j.ne.5) call abort()`
`END`	`END`