TST: Add a test for numpygh-19161 [f2py]

HaoZeke · charris · commit 33fcf1d05bc2 · 2023-11-21T09:52:46.000-07:00
diff --git a/numpy/f2py/tests/src/common/gh19161.f90 b/numpy/f2py/tests/src/common/gh19161.f90
@@ -0,0 +1,10 @@
+module typedefmod
+  use iso_fortran_env, only: real32
+end module typedefmod
+
+module data
+  use typedefmod, only: real32
+  implicit none
+  real(kind=real32) :: x
+  common/test/x
+end module data
diff --git a/numpy/f2py/tests/test_common.py b/numpy/f2py/tests/test_common.py
@@ -16,3 +16,12 @@ def test_common_block(self):
         assert self.module.block.long_bn == np.array(1.0, dtype=np.float64)
         assert self.module.block.string_bn == np.array("2", dtype="|S1")
         assert self.module.block.ok == np.array(3, dtype=np.int32)
+
+
+class TestCommonWithUse(util.F2PyTest):
+    sources = [util.getpath("tests", "src", "common", "gh19161.f90")]
+
+    @pytest.mark.skipif(sys.platform == "win32",
+                        reason="Fails with MinGW64 Gfortran (Issue #9673)")
+    def test_common_gh19161(self):
+        assert self.module.data.x == 0
