2 ! PR 25292: Check that the intrinsic associated works with functions returning
3 ! pointers as arguments
8 if(associated(a,b).or.associated(a,a)) call abort()
10 if(associated(b,a)) call abort()
11 if (.not.associated(x(a))) call abort ()
12 if (.not.associated(a, x(a))) call abort ()
15 if (associated(x(b))) call abort ()
17 if (associated(x(b), x(a))) call abort ()
21 function x(a) RESULT(b)