BUG: Hotfix for handling common blocks in f2py

HaoZeke · HaoZeke · commit e1e5662c701f · 2023-01-29T22:32:16.000Z
diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py
@@ -614,7 +614,8 @@ def readfortrancode(ffile, dowithline=show, istop=1):
              r'endinterface|endsubroutine|endfunction')
 endpattern = re.compile(
     beforethisafter % ('', groupends, groupends, r'.*'), re.I), 'end'
-endifs = r'end\s*(if|do|where|select|while|forall|associate|block|' + \
+# block, the Fortran 2008 construct needs special handling in the rest of the file
+endifs = r'end\s*(if|do|where|select|while|forall|associate|' + \
          r'critical|enum|team)'
 endifpattern = re.compile(
     beforethisafter % (r'[\w]*?', endifs, endifs, r'[\w\s]*'), re.I), 'endif'
