Finished impl. Fortran 77-2003 parse pattern classes.

1 files changed, 3 insertions, 6 deletions

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