diff options
author | Tobias Burnus <burnus@net-b.de> | 2011-07-23 00:44:20 +0200 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-07-23 00:44:20 +0200 |
commit | f5e62ce922eace0a9c8989c4f962d50005ad9d47 (patch) | |
tree | 707c19c9f69eb906591b98e127c3996e1450c8ad /libgfortran/io | |
parent | efc694a70a411f4399c71c715afaa22b10edac75 (diff) | |
download | gcc-f5e62ce922eace0a9c8989c4f962d50005ad9d47.zip gcc-f5e62ce922eace0a9c8989c4f962d50005ad9d47.tar.gz gcc-f5e62ce922eace0a9c8989c4f962d50005ad9d47.tar.bz2 |
re PR libfortran/49791 (Formatted namelist reads fails with: Cannot match namelist object)
2011-07-23 Tobias Burnus <burnus@net-b.de>
PR fortran/49791
* io/list_read.c (nml_parse_qualifier): Remove check to
enabled extended read for another case.
2011-07-23 Tobias Burnus <burnus@net-b.de>
PR fortran/49791
* gfortran.dg/namelist_72.f: New.
From-SVN: r176661
Diffstat (limited to 'libgfortran/io')
-rw-r--r-- | libgfortran/io/list_read.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index c88f232..01272d0 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -2213,7 +2213,6 @@ nml_parse_qualifier (st_parameter_dt *dtp, descriptor_dimension *ad, do not allow excess data to be processed. */ if (is_array_section == 1 || !(compile_options.allow_std & GFC_STD_GNU) - || !dtp->u.p.ionml->touched || dtp->u.p.ionml->type == BT_DERIVED) ls[dim].end = ls[dim].start; else |