diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-14 04:37:02 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-14 04:37:02 +0000 |
| commit | 8d6d286ee5b4b0411e29806f4223fb8131511103 (patch) | |
| tree | 8153b4819b0597f2d17b4dc3045b1437ebe7835d /libgfortran | |
| parent | a2f1a6b42ff22245361221bfa11922867251dab6 (diff) | |
| download | gcc-8d6d286ee5b4b0411e29806f4223fb8131511103.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164266 138bc75d-0d04-0410-961f-82ee72b054a4
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); |