3 ! PR 40176: Fortran 2003: Procedure pointers with array return value
5 ! Original test case by Barron Bichon <barron.bichon@swri.org>
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
11 PROCEDURE(triple), POINTER, NOPASS :: f
12 END TYPE ProcPointerType
14 TYPE (ProcPointerType) :: ppt
15 PROCEDURE(triple), POINTER :: f
21 if (abs(tres(1)-6.)>1E-3) call abort()
22 if (abs(tres(2)-12.)>1E-3) call abort()
23 tres = ppt%f(2,[3.,5.])
24 if (abs(tres(1)-9.)>1E-3) call abort()
25 if (abs(tres(2)-15.)>1E-3) call abort()
29 FUNCTION triple(n,x) RESULT(tre)
30 INTEGER, INTENT(in) :: n
31 REAL, INTENT(in) :: x(2)