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
)) STOP 1
10 if(associated(b
,a
)) STOP 2
11 if (.not
.associated(x(a
))) STOP 3
12 if (.not
.associated(a
, x(a
))) STOP 4
15 if (associated(x(b
))) STOP 5
17 if (associated(x(b
), x(a
))) STOP 6
21 function x(a
) RESULT(b
)