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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [largeequiv_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR 20361 : We didn't check if a large equivalence actually fit on`	`! PR 20361 : We didn't check if a large equivalence actually fit on`
`! the stack, and therefore segfaulted at execution time`	`! the stack, and therefore segfaulted at execution time`
`subroutine test`	`subroutine test`
`integer i(1000000), j`	`integer i(1000000), j`
`equivalence (i(50), j)`	`equivalence (i(50), j)`

`j = 1`	`j = 1`
`if (i(50) /= j) call abort()`	`if (i(50) /= j) call abort()`
`end subroutine test`	`end subroutine test`

`call test`	`call test`
`end`	`end`