| Current Path : /opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/callback/ |
| Current File : //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