diff options
| author | Pearu Peterson <pearu.peterson@gmail.com> | 2008-05-15 14:37:02 +0000 |
|---|---|---|
| committer | Pearu Peterson <pearu.peterson@gmail.com> | 2008-05-15 14:37:02 +0000 |
| commit | a6f214891d56b599a25d1ebe0127ecaea7f121af (patch) | |
| tree | 96f532821bf72ce728d5d61f4146189f7c9c8238 /numpy/f2py | |
| parent | a0cdbc671e93cad0196d8bbe4f1070c3e484cb45 (diff) | |
| download | numpy-a6f214891d56b599a25d1ebe0127ecaea7f121af.tar.gz | |
f2py: disallow matching module procedure-s as module-s.
Diffstat (limited to 'numpy/f2py')
| -rwxr-xr-x | numpy/f2py/crackfortran.py | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py index 42ef4f7fc..8679b239c 100755 --- a/numpy/f2py/crackfortran.py +++ b/numpy/f2py/crackfortran.py @@ -456,7 +456,7 @@ subroutinepattern=re.compile(beforethisafter%('[a-z\s]*?','subroutine','subrouti # 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' |