| python module __user__routines | |
| interface | |
| function fun(i) result (r) | |
| integer :: i | |
| real*8 :: r | |
| end function fun | |
| end interface | |
| end python module __user__routines | |
| python module callback2 | |
| interface | |
| subroutine foo(f,r) | |
| use __user__routines, f=>fun | |
| external f | |
| real*8 intent(out) :: r | |
| end subroutine foo | |
| end interface | |
| end python module callback2 | |