diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-23 04:29:15 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-23 04:29:15 +0000 |
| commit | 8733af5bffc67217f91a21a353a3ee02c1b2a4db (patch) | |
| tree | 95da40ffc548f4f78568e908f0ed735ab935d439 | |
| parent | 07a0460a2de6335048e100158c5d49a5469d7b01 (diff) | |
| download | gcc-8733af5bffc67217f91a21a353a3ee02c1b2a4db.tar.gz | |
2008-07-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/36852
* io/list_read.c: If variable rank is zero, do not adjust the found
namelist object pointer.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138072 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index cf559109544..2459b539096 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-07-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/36852 + * io/list_read.c: If variable rank is zero, do not adjust the found + namelist object pointer. + 2008-07-22 Daniel Kraft <d@domob.eu> PR fortran/29835 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index ba8de9750e1..34e2ac0698a 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -2791,7 +2791,7 @@ get_name: if (nl->type == GFC_DTYPE_DERIVED) nml_touch_nodes (nl); - if (component_flag) + if (component_flag && nl->var_rank > 0) nl = first_nl; /* Make sure no extraneous qualifiers are there. */ |