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

numpy-svn@scip... numpy-svn@scip...
Thu Aug 2 14:26:41 CDT 2007


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



More information about the Numpy-svn mailing list