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.dg/] [proc_ptr_22.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`!`	`!`
`! PR 40646: [F03] array-valued procedure pointer components`	`! PR 40646: [F03] array-valued procedure pointer components`
`!`	`!`
`! Original test case by Charlie Sharpsteen`	`! Original test case by Charlie Sharpsteen`
`! Modified by Janus Weil`	`! Modified by Janus Weil`

`module bugTestMod`	`module bugTestMod`
`implicit none`	`implicit none`
`procedure(returnMat), pointer :: pp2`	`procedure(returnMat), pointer :: pp2`
`contains`	`contains`
`function returnMat( a, b ) result( mat )`	`function returnMat( a, b ) result( mat )`
`integer:: a, b`	`integer:: a, b`
`double precision, dimension(a,b):: mat`	`double precision, dimension(a,b):: mat`
`mat = 1d0`	`mat = 1d0`
`end function returnMat`	`end function returnMat`
`end module bugTestMod`	`end module bugTestMod`

`program bugTest`	`program bugTest`
`use bugTestMod`	`use bugTestMod`
`implicit none`	`implicit none`
`procedure(returnMat), pointer :: pp`	`procedure(returnMat), pointer :: pp`
`pp => returnMat`	`pp => returnMat`
`if (sum(pp(2,2))/=4) call abort()`	`if (sum(pp(2,2))/=4) call abort()`
`pp2 => returnMat`	`pp2 => returnMat`
`if (sum(pp2(3,2))/=6) call abort()`	`if (sum(pp2(3,2))/=6) call abort()`
`end program bugTest`	`end program bugTest`

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