| Path : /opt/cloudlinux/venv/lib64/python3.11/site-packages/numpy/f2py/tests/src/crackfortran/ |
| Current File : //opt/cloudlinux/venv/lib64/python3.11/site-packages/numpy/f2py/tests/src/crackfortran/gh23598Warn.f90 |
module test_bug
implicit none
private
public :: intproduct
contains
integer function intproduct(a, b) result(res)
integer, intent(in) :: a, b
res = a*b
end function
end module