TST: Add a another test for gh-25207

HaoZeke · HaoZeke · commit 842e39f6b9ee · 2023-11-26T20:50:55.000Z
diff --git a/numpy/f2py/tests/src/isocintrin/isoCtests.f90 b/numpy/f2py/tests/src/isocintrin/isoCtests.f90
@@ -20,4 +20,15 @@ subroutine c_add_int64(a, b, c) bind(c)
         integer(c_int64_t), intent(out) :: c
         c = a + b
       end subroutine c_add_int64
+      ! gh-25207
+      subroutine add_arr(A, B, C)
+         integer(c_int64_t), intent(in) :: A(3)
+         integer(c_int64_t), intent(in) :: B(3)
+         integer(c_int64_t), intent(out) :: C(3)
+         integer :: j
+
+         do j = 1, 3
+            C(j) = A(j)+B(j)
+         end do
+      end subroutine
   end module coddity
diff --git a/numpy/f2py/tests/test_isoc.py b/numpy/f2py/tests/test_isoc.py
@@ -1,6 +1,7 @@
 from . import util
 import numpy as np
 import pytest
+from numpy.testing import assert_allclose
 
 class TestISOC(util.F2PyTest):
     sources = [
@@ -26,6 +27,14 @@ def test_bindc_kinds(self):
         exp_out = 21
         assert  out == exp_out
 
+    # gh-25207
+    def test_bindc_add_arr(self):
+        a = np.array([1,2,3])
+        b = np.array([1,2,3])
+        out = self.module.coddity.add_arr(a, b)
+        exp_out = a*2
+        assert_allclose(out, exp_out)
+
 
 def test_process_f2cmap_dict():
     from numpy.f2py.auxfuncs import process_f2cmap_dict
