git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Jerry DeLisle 2010-09-14 04:37:02 +00:00
parent 3f9740d0f6
commit 3423894f17
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
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> 2010-09-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* intrinsics/pack_generic.c (pack): Add missing return and fix whitespace. * intrinsics/pack_generic.c (pack): Add missing return and fix whitespace.

3
libgfortran/io/list_read.c
View File

@ -2757,10 +2757,11 @@ get_name:
goto nml_err_ret; goto nml_err_ret;
} }
if (!component_flag) if (*pprev_nl == NULL || !component_flag)
first_nl = nl; first_nl = nl;
root_nl = nl; root_nl = nl;
component_flag = 1; component_flag = 1;
c = next_char (dtp); c = next_char (dtp);