diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-09-14 04:37:02 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-09-14 04:37:02 +0000 |
| commit | 3423894f17cfdd78ebd2c0c1cc765c6f8a39fff1 (patch) | |
| tree | 8153b4819b0597f2d17b4dc3045b1437ebe7835d /libgfortran | |
| parent | 3f9740d0f66c7fb1904dd1e6ea7c70feeede1bee (diff) | |
| download | gcc-3423894f17cfdd78ebd2c0c1cc765c6f8a39fff1.tar.gz | |
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
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); |