3 ! PR42045: [F03] passing a procedure pointer component to a procedure pointer dummy
5 ! Contributed by John McFarland <john.mcfarland@swri.org>
9 PROCEDURE(), POINTER, NOPASS :: f
12 TYPE (object), POINTER :: o(:)
15 TYPE (object) :: o1, o2
16 PROCEDURE(), POINTER :: f => NULL()
19 CALL set_func(o2,o1%f)
22 CALL set_func(o2,c%o(5)%f)
24 SUBROUTINE set_func(o,f)
26 PROCEDURE(), POINTER :: f
28 END SUBROUTINE set_func