BUG: Fix counter for abstract interfaces in f2py

HaoZeke · HaoZeke · commit 934b10cef118 · 2022-11-23T05:57:23.000Z
diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py
@@ -735,7 +735,7 @@ def crackline(line, reset=0):
     if reset > 0:
         fl = 0
         if f77modulename and neededmodule == groupcounter:
-            fl = 2
+            fl = 3
         while groupcounter > fl:
             outmess('crackline: groupcounter=%s groupname=%s\n' %
                     (repr(groupcounter), repr(groupname)))
@@ -1058,7 +1058,7 @@ def analyzeline(m, case, line):
                 return
             block = {'call': 'subroutine', 'callfun': 'function'}[case]
         if f77modulename and neededmodule == -1 and groupcounter <= 1:
-            neededmodule = groupcounter + 2
+            neededmodule = groupcounter + 3
             needmodule = 1
             if block not in ['interface', 'abstract interface']:
                 needinterface = 1
