Use regular expression to find common block name

numpy · charris · Apr 2, 2025 · Feb 26, 2025 · Feb 28, 2025 · Feb 28, 2025
commit d53294fcb7b805f50e95269eefdb6970fea6559b
diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py
@@ -1494,12 +1494,12 @@ def analyzeline(m, case, line):
        f = 0
        bn = ''
        ol = ''
-        nslash = 0
-        for c in line:
-            if c == '/' and nslash < 2:
-                f = f + 1
-                nslash = nslash + 1
-                continue
+
+        # Find the /<common block name>/ and split the string at
+        # that location. 
+        split_line = re.split(r'\s*/[A-Za-z_]*[A-Za-z0-9_]*/', line)
+
+        for c in split_line[-1]:
            if f >= 3:
                bn = bn.strip()
                if not bn: