3 ! PR 54285: [F03] Calling a PPC with proc-ptr result
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
8 procedure(a), pointer, nopass :: p
12 procedure(iabs), pointer :: pp
18 if (pp(-3) /= 3) call abort
22 function a() result (b)
23 procedure(iabs), pointer :: b