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()