| Current Path : /opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/value_attrspec/ |
| Current File : //opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/value_attrspec/gh21665.f90 |
module fortfuncs
implicit none
contains
subroutine square(x,y)
integer, intent(in), value :: x
integer, intent(out) :: y
y = x*x
end subroutine square
end module fortfuncs