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>
11 procedure(returnMat
), pointer, nopass
:: test
14 function returnMat( a
, b
) result( mat
)
16 double precision, dimension(a
,b
):: mat
18 end function returnMat
24 type( boundTest
):: testObj
25 double precision, dimension(2,2):: testCatch
26 testObj
%test
=> returnMat
27 testCatch
= testObj
%test(2,2)
29 if (sum(testCatch
)/=4) call abort()
30 print *,testObj
%test(3,3)
31 if (sum(testObj
%test(3,3))/=9) call abort()
34 ! { dg-final { cleanup-modules "bugTestMod" } }