MAINT: Update END statement parsing for recent Fortran standards. Closes #2763

pearu · pearu · commit e6dab4ff15f2 · 2021-02-15T12:07:04.000+02:00
diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py
@@ -560,8 +560,7 @@ def readfortrancode(ffile, dowithline=show, istop=1):
              r'endinterface|endsubroutine|endfunction')
 endpattern = re.compile(
     beforethisafter % ('', groupends, groupends, r'[\w\s]*'), re.I), 'end'
-# endifs='end\s*(if|do|where|select|while|forall)'
-endifs = r'(end\s*(if|do|where|select|while|forall))|(module\s*procedure)'
+endifs = r'(end\s*(if|do|where|select|while|forall|associate|block|critical|enum|team))|(module\s*procedure)'
 endifpattern = re.compile(
     beforethisafter % (r'[\w]*?', endifs, endifs, r'[\w\s]*'), re.I), 'endif'
 #
