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/] [nesting_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! PR 18525`	`! PR 18525`
`! we used to incorrectly refer to n from a when resolving the call to`	`! we used to incorrectly refer to n from a when resolving the call to`
`! c from b`	`! c from b`
`! { dg-do run }`	`! { dg-do run }`
`subroutine a(n)`	`subroutine a(n)`
`call b(n+1)`	`call b(n+1)`
`contains`	`contains`
`subroutine b(n)`	`subroutine b(n)`
`call c(n)`	`call c(n)`
`end subroutine b`	`end subroutine b`

`subroutine c(m)`	`subroutine c(m)`
`if (m/=1) call abort`	`if (m/=1) call abort`
`end subroutine c`	`end subroutine c`
`end subroutine a`	`end subroutine a`

`call a(0)`	`call a(0)`
`end`	`end`