f2py: disallow matching module procedure-s as module-s.

numpy/f2py/crackfortran.py

@@ -456,7 +456,7 @@ def readfortrancode(ffile,dowithline=show,istop=1):
 #
 groupbegins77=r'program|block\s*data'
 beginpattern77=re.compile(beforethisafter%('',groupbegins77,groupbegins77,'.*'),re.I),'begin'
-groupbegins90=groupbegins77+r'|module|python\s*module|interface|type(?!\s*\()'
+groupbegins90=groupbegins77+r'|module(?!\s*procedure)|python\s*module|interface|type(?!\s*\()'
 beginpattern90=re.compile(beforethisafter%('',groupbegins90,groupbegins90,'.*'),re.I),'begin'
 groupends=r'end|endprogram|endblockdata|endmodule|endpythonmodule|endinterface'
 endpattern=re.compile(beforethisafter%('',groupends,groupends,'[\w\s]*'),re.I),'end'