8 subroutine subr2(p) bind(c)  argument
10   procedure() :: p  local
13 subroutine subr3(p) bind(c)  argument
15   procedure(real) :: p  local
18 subroutine subr4(p) bind(c)  argument
27 subroutine subr5(p) bind(c)  argument
36 subroutine subr6(p) bind(c)  argument
40       real p(1)  local
45 subroutine subr7(p) bind(c)  argument
53 subroutine subr8(p) bind(c)  argument
62 subroutine subr9(p) bind(c)  argument
64   procedure(q), bind(c), pointer :: p  local