[Bug fortran/36582] Namelist I/O error: Bogus "Cannot match namelist object"

[jvdelisle at gcc dot gnu dot org]

------- Comment #10 from jvdelisle at gcc dot gnu dot org  2008-06-22 05:52 
-------
Correction, the IF clause is not relevant.

Index: libgfortran/io/list_read.c
===================================================================
--- libgfortran/io/list_read.c  (revision 136998)
+++ libgfortran/io/list_read.c  (working copy)
@@ -2649,7 +2649,7 @@ get_name:
       if (!is_separator (c))
        push_char (dtp, tolower(c));
       c = next_char (dtp);
-    } while (!( c=='=' || c==' ' || c=='\t' || c =='(' || c =='%' ));
+    } while (!( c=='=' || c==' ' || c=='\t' || c =='(' ));

   unget_char (dtp, c);



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36582