/opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/isocintrin
Edit: /opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/isocintrin/isoCtests.f90 (475B)
module coddity
use iso_c_binding, only: c_double, c_int
implicit none
contains
subroutine c_add(a, b, c) bind(c, name="c_add")
real(c_double), intent(in) :: a, b
real(c_double), intent(out) :: c
c = a + b
end subroutine c_add
! gh-9693
function wat(x, y) result(z) bind(c)
integer(c_int), intent(in) :: x, y
integer(c_int) :: z
z = x + 7
end function wat
end module coddity