summaryrefslogtreecommitdiff
path: root/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/datonly.f90
diff options
context:
space:
mode:
Diffstat (limited to '.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/datonly.f90')
-rw-r--r--.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/datonly.f9017
1 files changed, 17 insertions, 0 deletions
diff --git a/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/datonly.f90 b/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/datonly.f90
new file mode 100644
index 0000000..67fc4ac
--- /dev/null
+++ b/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/datonly.f90
@@ -0,0 +1,17 @@
+module datonly
+ implicit none
+ integer, parameter :: max_value = 100
+ real, dimension(:), allocatable :: data_array
+end module datonly
+
+module dat
+ implicit none
+ integer, parameter :: max_= 1009
+end module dat
+
+subroutine simple_subroutine(ain, aout)
+ use dat, only: max_
+ integer, intent(in) :: ain
+ integer, intent(out) :: aout
+ aout = ain + max_
+end subroutine simple_subroutine