diff options
Diffstat (limited to '.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/crackfortran/gh23879.f90')
-rw-r--r-- | .venv/lib/python3.12/site-packages/numpy/f2py/tests/src/crackfortran/gh23879.f90 | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/crackfortran/gh23879.f90 b/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/crackfortran/gh23879.f90 new file mode 100644 index 00000000..fac262d5 --- /dev/null +++ b/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/crackfortran/gh23879.f90 @@ -0,0 +1,20 @@ +module gh23879 + implicit none + private + public :: foo + + contains + + subroutine foo(a, b) + integer, intent(in) :: a + integer, intent(out) :: b + b = a + call bar(b) + end subroutine + + subroutine bar(x) + integer, intent(inout) :: x + x = 2*x + end subroutine + + end module gh23879 |