summaryrefslogtreecommitdiff
path: root/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/assignOnlyModule.f90
diff options
context:
space:
mode:
Diffstat (limited to '.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/assignOnlyModule.f90')
-rw-r--r--.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/assignOnlyModule.f9025
1 files changed, 25 insertions, 0 deletions
diff --git a/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/assignOnlyModule.f90 b/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/assignOnlyModule.f90
new file mode 100644
index 0000000..479ac79
--- /dev/null
+++ b/.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/assignOnlyModule.f90
@@ -0,0 +1,25 @@
+ MODULE MOD_TYPES
+ INTEGER, PARAMETER :: SP = SELECTED_REAL_KIND(6, 37)
+ INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15, 307)
+ END MODULE
+!
+ MODULE F_GLOBALS
+ USE MOD_TYPES
+ IMPLICIT NONE
+ INTEGER, PARAMETER :: N_MAX = 16
+ INTEGER, PARAMETER :: I_MAX = 18
+ INTEGER, PARAMETER :: J_MAX = 72
+ REAL(SP) :: XREF
+ END MODULE F_GLOBALS
+!
+ SUBROUTINE DUMMY ()
+!
+ USE F_GLOBALS
+ USE MOD_TYPES
+ IMPLICIT NONE
+!
+ REAL(SP) :: MINIMAL
+ MINIMAL = 0.01*XREF
+ RETURN
+!
+ END SUBROUTINE DUMMY