From 7e7b874568bb08b8f22fc38f15df40aafa6571ef Mon Sep 17 00:00:00 2001
From: Pearu Peterson <pearu.peterson@gmail.com>
Date: Fri, 26 May 2006 14:34:15 +0000
Subject: Fixed new fortran reader and parser bugs.

---
 numpy/f2py/lib/sourceinfo.py | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/numpy/f2py/lib/sourceinfo.py b/numpy/f2py/lib/sourceinfo.py
index 457c3d8b3..a31c99d73 100644
--- a/numpy/f2py/lib/sourceinfo.py
+++ b/numpy/f2py/lib/sourceinfo.py
@@ -54,13 +54,13 @@ def is_free_format(file):
     while n>0 and line:
         if line[0]!='!' and line.strip():
             n -= 1
-            if not contline and (line[0]!='\t' and _free_f90_start(line[:5])):
+            if line[0]!='\t' and _free_f90_start(line[:5]) or line[-2:-1]=='&':
                 isfree = True
                 break
-            elif line[-2:-1]=='&':
-                contline = True
-            else:
-                contline = False
+            #elif line[-2:-1]=='&':
+            #    contline = True
+            #else:
+            #    contline = False
         line = f.readline()
     f.close()
     return isfree
-- 
cgit v1.2.1