codekingpro/portable-devtools

1python module __user__routines
2    interface
3        function fun(i) result (r)
4            integer :: i
5            real*8 :: r
6        end function fun
7    end interface
8end python module __user__routines
9
10python module callback2
11    interface
12        subroutine foo(f,r)
13            use __user__routines, f=>fun
14            external f
15            real*8 intent(out) :: r
16        end subroutine foo
17    end interface
18end python module callback2
19