3 ! PR 40646: [F03] array-valued procedure pointer components
5 ! Original test case by Charlie Sharpsteen <chuck@sharpsteen.net>
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
10 procedure(returnMat), pointer :: pp2
12 function returnMat( a, b ) result( mat )
14 double precision, dimension(a,b):: mat
16 end function returnMat
22 procedure(returnMat), pointer :: pp
24 if (sum(pp(2,2))/=4) call abort()
26 if (sum(pp2(3,2))/=6) call abort()
29 ! { dg-final { cleanup-modules "bugtestmod" } }