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.0rc2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [function_module_1.f90] - Diff between revs 303 and 384

Rev 303	Rev 384
`! This can fail because BB is not resolved correctly.`	`! This can fail because BB is not resolved correctly.`
`module M1`	`module M1`

`INTEGER p`	`INTEGER p`

`CONTAINS`	`CONTAINS`
`subroutine AA ()`	`subroutine AA ()`
`implicit NONE`	`implicit NONE`
`p = BB ()`	`p = BB ()`
`CONTAINS`	`CONTAINS`
`subroutine AA_1 ()`	`subroutine AA_1 ()`
`implicit NONE`	`implicit NONE`
`integer :: i`	`integer :: i`
`i = BB ()`	`i = BB ()`
`end subroutine`	`end subroutine`

`function BB()`	`function BB()`
`integer :: BB`	`integer :: BB`
`BB = 1`	`BB = 1`
`end function`	`end function`
`end subroutine`	`end subroutine`

`function BB()`	`function BB()`
`implicit NONE`	`implicit NONE`
`integer :: BB`	`integer :: BB`
`BB = 2`	`BB = 2`
`end function`	`end function`
`end module`	`end module`

`program P1`	`program P1`
`USE M1`	`USE M1`
`implicit none`	`implicit none`
`p = 0`	`p = 0`
`call AA ()`	`call AA ()`
`if (p /= 1) call abort`	`if (p /= 1) call abort`
`end`	`end`