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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_10.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`!`	`!`
`! PR fortran/37253`	`! PR fortran/37253`
`!`	`!`
`! Contributed by Dominique d'Humieres`	`! Contributed by Dominique d'Humieres`

`module myMod`	`module myMod`

`CONTAINS`	`CONTAINS`

`real function proc3( arg1 )`	`real function proc3( arg1 )`
`integer :: arg1`	`integer :: arg1`
`proc3 = arg1+7`	`proc3 = arg1+7`
`end function proc3`	`end function proc3`

`subroutine proc4( arg1 )`	`subroutine proc4( arg1 )`
`procedure(real), pointer :: arg1`	`procedure(real), pointer :: arg1`
`if (arg1(0)/=7) call abort()`	`if (arg1(0)/=7) call abort()`
`end subroutine proc4`	`end subroutine proc4`

`end module myMod`	`end module myMod`

`program myProg`	`program myProg`
`use myMod`	`use myMod`
`PROCEDURE (real), POINTER :: p => NULL()`	`PROCEDURE (real), POINTER :: p => NULL()`
`p => proc3`	`p => proc3`
`call proc4( p )`	`call proc4( p )`
`end program myProg`	`end program myProg`

`! { dg-final { cleanup-modules "myMod" } }`	`! { dg-final { cleanup-modules "myMod" } }`