diff options
| author | Richard Earnshaw <rearnsha@arm.com> | 2009-08-10 12:28:53 +0000 |
|---|---|---|
| committer | Richard Earnshaw <rearnsha@arm.com> | 2009-08-10 12:28:53 +0000 |
| commit | 515a2d9dddc5c9ec2e5fb352d28b2e8adb144346 (patch) | |
| tree | aba3a1c247b899eead6f35d2a27fdf5983eec3b6 /libgfortran/io/list_read.c | |
| parent | 94294700e714a81f4eb2de568f387c76daa9ed51 (diff) | |
| parent | 3f5d156f28c24193e4046f35cc32d900fa6be9d6 (diff) | |
Merge gcc-4.4-branch through r150619.ARM/hard_vfp_4_4_branch
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/ARM/hard_vfp_4_4_branch@150624 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/list_read.c')
| -rw-r--r-- | libgfortran/io/list_read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 3ca63de82e9..ba310e1676d 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -2772,7 +2772,7 @@ get_name: if (nl->type == GFC_DTYPE_DERIVED) nml_touch_nodes (nl); - if (component_flag && nl->var_rank > 0) + if (component_flag && nl->var_rank > 0 && nl->next) nl = first_nl; /* Make sure no extraneous qualifiers are there. */ |