Commit 3423894f by Jerry DeLisle

re PR fortran/45532 (gfortran namelist read error)

2010-09-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/45532
	* io/list_read.c (nml_get_obj_data): Set first_nl if the previous
	is NULL.

From-SVN: r164266
parent 3f9740d0
2010-09-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/45532
* io/list_read.c (nml_get_obj_data): Set first_nl if the previous
is NULL.
2010-09-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* intrinsics/pack_generic.c (pack): Add missing return and fix whitespace.
......
......@@ -2757,10 +2757,11 @@ get_name:
goto nml_err_ret;
}
if (!component_flag)
if (*pprev_nl == NULL || !component_flag)
first_nl = nl;
root_nl = nl;
component_flag = 1;
c = next_char (dtp);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment