[Bug fortran/55117] Programs fails to read namelist (contains derived types objects)

[tilo@tilo-schwarz.de]

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

--- Comment #16 from Tilo Schwarz <tilo@tilo-schwarz.de> 2013-02-25 19:01:50 UTC ---
(In reply to comment #14)
> Created attachment 29532 [details]
> Namelist patch

Bummer, I had a typo in the comment:

The second hunk should read

"/* Don't move first_nl" instead of
"/* Don't move pprev_nl": 

@@ -2901,7 +2901,8 @@ get_name:
          goto nml_err_ret;
        }

-      if (*pprev_nl == NULL || !component_flag)
+      /* Don't move first_nl further in the list if a qualifier was found */
+      if ((*pprev_nl == NULL && !qualifier_flag) || !component_flag)
        first_nl = nl;


Sorry,
Tilo