2 ! PR 25292: Check that the intrinsic associated works with functions returning
3 ! pointers as arguments
8 if (.not
.associated(x(a
))) call abort ()
9 if (.not
.associated(a
, x(a
))) call abort ()
12 if (associated(x(b
))) call abort ()
14 if (associated(x(b
), x(a
))) call abort ()
18 function x(a
) RESULT(b
)