[Numpy-svn] r3939 - trunk/numpy/f2py

[numpy-svn at scipy.org]

Author: rkern
Date: 2007-08-02 14:26:40 -0500 (Thu, 02 Aug 2007)
New Revision: 3939

Modified:
   trunk/numpy/f2py/crackfortran.py
Log:
Ignore blank lines when determining Fortran free format.

Modified: trunk/numpy/f2py/crackfortran.py
===================================================================
--- trunk/numpy/f2py/crackfortran.py	2007-08-01 23:48:41 UTC (rev 3938)
+++ trunk/numpy/f2py/crackfortran.py	2007-08-02 19:26:40 UTC (rev 3939)
@@ -247,7 +247,7 @@
         n = 0
         result = 1
     while n>0 and line:
-        if line[0]!='!':
+        if line[0]!='!' and line.strip():
             n -= 1
             if (line[0]!='\t' and _free_f90_start(line[:5])) or line[-2:-1]=='&':
                 result = 1