3 ! PR 40450: [F03] procedure pointer as actual argument
5 ! Contributed by John McFarland <john.mcfarland@swri.org>
16 PROCEDURE(sub), POINTER:: f2
21 PROCEDURE(sub), POINTER :: f3
30 PROCEDURE(sub), POINTER :: f1
41 ! { dg-final { cleanup-modules "m" } }