2 ! Tests the fix for PR31209, in which an ICE would result because
3 ! the reference to the pointer function f would be indirected, as
4 ! if it were the result that is being passed.
6 ! COntributed by Joost VandeVondele <jv244@cam.ac.uk>
8 FUNCTION F() RESULT(RES)
9 INTEGER, POINTER :: RES
16 FUNCTION F() RESULT(RES)
17 INTEGER, POINTER :: RES
25 FUNCTION F() RESULT(RES)
26 INTEGER, POINTER :: RES
34 FUNCTION F() RESULT(RES)
35 INTEGER, POINTER :: RES