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>
10 PROCEDURE(triple), POINTER :: f
13 if (sum(f(2.,4.)-triple(2.,4.))>1E-3) call abort()
17 FUNCTION triple(a,b) RESULT(tre)
18 REAL, INTENT(in) :: a, b