Your IP : 216.73.216.74

Current Path : /usr/local/python-3.13/lib/python3.13/site-packages/numpy/f2py/tests/src/crackfortran/
Upload File :
Current File : //usr/local/python-3.13/lib/python3.13/site-packages/numpy/f2py/tests/src/crackfortran/gh23598.f90

integer function intproduct(a, b) result(res)
  integer, intent(in) :: a, b
  res = a*b
end function