/usr/local/lib64/python3.6/site-packages/numpy/f2py/tests/src/kind
Edit: /usr/local/lib64/python3.6/site-packages/numpy/f2py/tests/src/kind/foo.f90 (347B)
subroutine selectedrealkind(p, r, res)
implicit none
integer, intent(in) :: p, r
!f2py integer :: r=0
integer, intent(out) :: res
res = selected_real_kind(p, r)
end subroutine
subroutine selectedintkind(p, res)
implicit none
integer, intent(in) :: p
integer, intent(out) :: res
res = selected_int_kind(p)
end subroutine