3 ! Test the fix for PR52832
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
9 integer function fcn1 (arg
)
12 integer function fcn2 (arg
)
17 procedure(fcn1
), pointer :: r
20 if (r(42) .ne
. 84) call abort
24 if (r(42) .ne
. 42) call abort
26 end subroutine testSub
28 integer function fcn1 (arg
)
33 integer function fcn2 (arg
)