OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

backport: re PR fortran/45532 (gfortran namelist read error) 

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

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

From-SVN: r164546
This commit is contained in:
Jerry DeLisle 2010-09-23 01:19:13 +00:00
parent 2c589d117b
commit 55b19b39e8
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2010-09-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Backport from mainline:
PR libfortran/45532
* io/list_read.c (nml_get_obj_data): Set first_nl if the previous
is NULL.
2010-09-17 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
Backport from mainline:

3
libgfortran/io/list_read.c
View File

@ -2731,10 +2731,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);