mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-19 11:29:22 +08:00
re PR fortran/36582 (Namelist I/O error: Bogus "Cannot match namelist object")
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. From-SVN: r138072
This commit is contained in:
parent
b55c64bb53
commit
ac834957b9
@ -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
|
||||
|
@ -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. */
|
||||
|
Loading…
Reference in New Issue
Block a user