diff options
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index d690be1ec61..bd4243f0828 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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> * intrinsics/pack_generic.c (pack): Add missing return and fix whitespace. diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index d757b1c4826..b3c1cf6a89d 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -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); |