BUG: f2py fix to scan literal strings with ! character, fixes ticket #…

…1228
numpy · Mar 27, 2011 · 225f28c · 225f28c
1 parent f2419c0
commit 225f28c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py
@@ -283,7 +283,7 @@ def readfortrancode(ffile,dowithline=show,istop=1):
     cont=0
     finalline=''
     ll=''
-    commentline=re.compile(r'(?P<line>([^"]*"[^"]*"[^"!]*|[^\']*\'[^\']*\'[^\'!]*|[^!]*))!{1}(?P<rest>.*)')
+    commentline=re.compile(r'(?P<line>([^"]*["][^"]*["][^"!]*|[^\']*\'[^\']*\'[^\'!]*|[^!\'"]*))!{1}(?P<rest>.*)')
     includeline=re.compile(r'\s*include\s*(\'|")(?P<name>[^\'"]*)(\'|")',re.I)
     cont1=re.compile(r'(?P<line>.*)&\s*\Z')
     cont2=re.compile(r'(\s*&|)(?P<line>.*)')