TST: Add one for numpygh-26466

Closes numpygh-26466

Since that is also related to comment parsing in F77

Author: HaoZeke

numpy/f2py/tests/src/regression/f77comments.f

@@ -11,3 +11,16 @@ SUBROUTINE TESTSUB(
 
       RETURN
       END SUBROUTINE TESTSUB
+
+      SUBROUTINE TESTSUB2(OUTPUT)
+      IMPLICIT NONE
+      INTEGER, PARAMETER :: N = 10 ! Array dimension
+      REAL, INTENT(OUT) :: OUTPUT(N)
+      INTEGER :: I
+
+      DO I = 1, N
+         OUTPUT(I) = I * 2.0
+      END DO
+
+      RETURN
+      END

numpy/f2py/tests/test_regression.py

@@ -2,6 +2,7 @@
 import pytest
 
 import numpy as np
+import numpy.testing as npt
 
 from . import util
 
@@ -89,6 +90,13 @@ def test_gh26148(self):
         assert(res[0] == 8)
         assert(res[1] == 15)
 
+    @pytest.mark.slow
+    def test_gh26466(self):
+        # Check that comments after PARAMETER directions are stripped
+        expected = np.arange(1, 11, dtype=np.float32)*2
+        res=self.module.testsub2()
+        npt.assert_allclose(expected, res)
+
 class TestF90Contiuation(util.F2PyTest):
     # Check that comments are stripped from F90 continuation lines
     sources = [util.getpath("tests", "src", "regression", "f90continuation.f90")]