TST: Add more tests for iso_c_binding

Functions and subroutines
numpy · charris · Sep 2, 2023 · Aug 26, 2023 · Aug 26, 2023 · Aug 26, 2023
commit 3755a4b6496c06bbc5c785df5cb8034b81ab6f63
diff --git a/numpy/f2py/tests/src/f2cmap/iso_c_oddity.f90 → ...y/f2py/tests/src/isocintrin/isoCtests.f90 b/numpy/f2py/tests/src/f2cmap/iso_c_oddity.f90 → ...y/f2py/tests/src/isocintrin/isoCtests.f90
@@ -1,10 +1,17 @@
   module coddity
-    use iso_c_binding, only: c_double
+    use iso_c_binding, only: c_double, c_int
     implicit none
     contains
       subroutine c_add(a, b, c) bind(c, name="c_add")
         real(c_double), intent(in) :: a, b
         real(c_double), intent(out) :: c
         c = a + b
       end subroutine c_add
+      ! gh-9693
+      function wat(x, y) result(z) bind(c, name='wat')
+          integer(c_int), intent(in) :: x, y
+          integer(c_int) :: z
+
+          z = x + 7
+      end function wat
   end module coddity
diff --git a/numpy/f2py/tests/test_f2cmap.py b/numpy/f2py/tests/test_f2cmap.py
@@ -13,14 +13,3 @@ def test_long_long_map(self):
         out = self.module.func1(inp)
         exp_out = 3
         assert out == exp_out
-
-class TestISOCmap(util.F2PyTest):
-    sources = [
-        util.getpath("tests", "src", "f2cmap", "iso_c_oddity.f90"),
-    ]
-
-    # gh-24553
-    def test_c_double(self):
-        out = self.module.coddity.c_add(1, 2)
-        exp_out = 3
-        assert  out == exp_out
diff --git a/numpy/f2py/tests/test_isoc.py b/numpy/f2py/tests/test_isoc.py
@@ -0,0 +1,19 @@
+from . import util
+import numpy as np
+
+class TestISOC(util.F2PyTest):
+    sources = [
+        util.getpath("tests", "src", "isocintrin", "isoCtests.f90"),
+    ]
+
+    # gh-24553
+    def test_c_double(self):
+        out = self.module.coddity.c_add(1, 2)
+        exp_out = 3
+        assert  out == exp_out
+
+    # gh-9693
+    def test_bindc_function(self):
+        out = self.module.coddity.wat(1, 20)
+        exp_out = 8
+        assert  out == exp_out