From: Jerry DeLisle Date: Wed, 23 Jul 2008 04:29:15 +0000 (+0000) Subject: re PR fortran/36582 (Namelist I/O error: Bogus "Cannot match namelist object") X-Git-Tag: releases/gcc-4.4.0~3737 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=ac834957b94ca3284c71fabd67e3153a7a0f6dfe;p=thirdparty%2Fgcc.git re PR fortran/36582 (Namelist I/O error: Bogus "Cannot match namelist object") 2008-07-22 Jerry DeLisle PR fortran/36852 * io/list_read.c: If variable rank is zero, do not adjust the found namelist object pointer. From-SVN: r138072 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index cf5591095443..2459b539096f 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-07-22 Jerry DeLisle + + 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 PR fortran/29835 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index ba8de9750e1e..34e2ac0698a7 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. */