Preview: gh21665.f90
Size: 190 B
/opt/cloudlinux/venv/lib64/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
Directory Contents
Dirs: 0 × Files: 1