summaryrefslogtreecommitdiff
path: root/numpy/f2py/lib/parsefortran.py
diff options
context:
space:
mode:
authorPearu Peterson <pearu.peterson@gmail.com>2006-06-26 05:54:44 +0000
committerPearu Peterson <pearu.peterson@gmail.com>2006-06-26 05:54:44 +0000
commitff660cb1a45a60128b6d934bc6977773b3ca7e34 (patch)
treebaf63ccb3f12bee380bf723d6eb8b49703e50666 /numpy/f2py/lib/parsefortran.py
parentecd8d3e9db972b5d1f3633266004942004052354 (diff)
downloadnumpy-ff660cb1a45a60128b6d934bc6977773b3ca7e34.tar.gz
Cont. impl. Fortran parser.
Diffstat (limited to 'numpy/f2py/lib/parsefortran.py')
-rw-r--r--numpy/f2py/lib/parsefortran.py11
1 files changed, 7 insertions, 4 deletions
diff --git a/numpy/f2py/lib/parsefortran.py b/numpy/f2py/lib/parsefortran.py
index 71355a9ad..21eec49fe 100644
--- a/numpy/f2py/lib/parsefortran.py
+++ b/numpy/f2py/lib/parsefortran.py
@@ -42,10 +42,13 @@ class FortranParser:
except KeyboardInterrupt:
raise
except:
- message = self.reader.format_message('FATAL ERROR',
- 'while processing line',
- self.reader.linecount, self.reader.linecount)
- self.reader.show_message(message, sys.stdout)
+ reader = self.reader
+ while reader is not None:
+ message = reader.format_message('FATAL ERROR',
+ 'while processing line',
+ reader.linecount, reader.linecount)
+ reader.show_message(message, sys.stdout)
+ reader = reader.reader
traceback.print_exc(file=sys.stdout)
self.reader.show_message(red_text('STOPPED PARSING'), sys.stdout)