TST: Add check for multipliers in data [f2py]

Co-authored-by: jncots <jncots@users.noreply.github.com>

numpy/f2py/crackfortran.py

@@ -1459,7 +1459,7 @@ def analyzeline(m, case, line):
                     # gh-24746
                     # Runs only if above code fails. Fixes the line
                     # DATA IVAR1, IVAR2, IVAR3, IVAR4, EVAR5 /4*0,0.0D0/
-                    # by exanding to ['0', '0', '0', '0', '0.0d0']
+                    # by expanding to ['0', '0', '0', '0', '0.0d0']
                     if any("*" in m for m in matches):
                         expanded_list = []
                         for match in matches:

numpy/f2py/tests/src/crackfortran/data_multiplier.f

@@ -0,0 +1,5 @@
+      BLOCK DATA MYBLK
+      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
+      COMMON /MYCOM/ IVAR1, IVAR2, IVAR3, IVAR4, EVAR5
+            DATA IVAR1, IVAR2, IVAR3, IVAR4, EVAR5 /2*3,2*2,0.0D0/
+      END

numpy/f2py/tests/test_data.py

@@ -47,6 +47,18 @@ def test_crackedlines(self):
         assert mod[0]['vars']['mydata']['='] == '0'
 
 
+class TestDataMultiplierF77(util.F2PyTest):
+    sources = [util.getpath("tests", "src", "crackfortran", "data_multiplier.f")]
+
+    # For gh-23276
+    def test_data_stmts(self):
+        assert self.module.mycom.ivar1 == 3
+        assert self.module.mycom.ivar2 == 3
+        assert self.module.mycom.ivar3 == 2
+        assert self.module.mycom.ivar4 == 2
+        assert self.module.mycom.evar5 == 0
+
+
 class TestDataWithCommentsF77(util.F2PyTest):
     sources = [util.getpath("tests", "src", "crackfortran", "data_with_comments.f")]