Fixed new fortran reader and parser bugs.

1 files changed, 5 insertions, 5 deletions

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