3 ! PR 36704: Procedure pointer as function result
5 ! Original test case from James Van Buskirk.
7 ! Adapted by Janus Weil <janus@gcc.gnu.org>
9 module store_subroutine
14 integer, intent(inout) :: i
18 procedure(sub), pointer, private :: psub => NULL()
25 end subroutine set_sub
28 procedure(sub), pointer :: get_sub
32 end module store_subroutine
37 procedure(sub), pointer :: qsub
47 recursive subroutine my_sub(j)
50 integer, intent(inout) :: j
55 ! { dg-final { cleanup-modules "store_subroutine" } }