Preview: gh17797.f90
Size: 148 B
//opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/callback/gh17797.f90
function gh17797(f, y) result(r) external f integer(8) :: r, f integer(8), dimension(:) :: y r = f(0) r = r + sum(y) end function gh17797
Directory Contents
Dirs: 0 × Files: 3