From a12cb7b1dab184bae0f1ae9931292778afc93f5d Mon Sep 17 00:00:00 2001
From: Pearu Peterson <pearu.peterson@gmail.com>
Date: Thu, 25 May 2006 10:54:57 +0000
Subject: Cont. impl. fortran parser, added do and ifthen blocks.

---
 numpy/f2py/lib/parsefortran.py | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'numpy/f2py/lib/parsefortran.py')

diff --git a/numpy/f2py/lib/parsefortran.py b/numpy/f2py/lib/parsefortran.py
index d4dc3d594..2341a0f22 100644
--- a/numpy/f2py/lib/parsefortran.py
+++ b/numpy/f2py/lib/parsefortran.py
@@ -19,6 +19,7 @@ class FortranParser:
 
     def __init__(self, reader):
         self.reader = reader
+        self.isfix77 = reader.isfix77
 
     def get_item(self):
         try:
@@ -45,7 +46,19 @@ python module foo
 end python module
 """
     reader = FortranStringReader(string, True, True)
-    reader = FortranFileReader(filename)
+    parser = FortranParser(reader)
+    block = parser.parse()
+    print block
+
+def test_f77():
+    string = """\
+c      program foo
+      a = 3
+      end
+      subroutine bar
+      end
+"""
+    reader = FortranStringReader(string, False, True)
     parser = FortranParser(reader)
     block = parser.parse()
     print block
@@ -60,5 +73,6 @@ def simple_main():
         print block
 
 if __name__ == "__main__":
+    #test_f77()
     #test_pyf()
     simple_main()
-- 
cgit v1.2.1