diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-04-12 00:04:41 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-04-12 00:04:41 +0000 |
| commit | 861b2d2cdebc20803b0e6edbe8a0f736dc10711e (patch) | |
| tree | 662a26cb7f03dbe7c1c2bb3832a0425e333c1b41 /libgfortran/io | |
| parent | cbbd2b1c82942411f70b41f0aca6f480a01baef8 (diff) | |
| download | gcc-861b2d2cdebc20803b0e6edbe8a0f736dc10711e.zip gcc-861b2d2cdebc20803b0e6edbe8a0f736dc10711e.tar.gz gcc-861b2d2cdebc20803b0e6edbe8a0f736dc10711e.tar.bz2 | |
re PR fortran/60810 (list directed io from array results in end of file)
2014-04-11 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/60810
io/unit.c (is_trim_ok): If internal unit is array, do not trim.
From-SVN: r209329
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/unit.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index e522195..385818a 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -382,9 +382,7 @@ static bool is_trim_ok (st_parameter_dt *dtp) { /* Check rank and stride. */ - if (dtp->internal_unit_desc - && (GFC_DESCRIPTOR_RANK (dtp->internal_unit_desc) > 1 - || GFC_DESCRIPTOR_STRIDE(dtp->internal_unit_desc, 0) != 1)) + if (dtp->internal_unit_desc) return false; /* Format strings can not have 'BZ' or '/'. */ if (dtp->common.flags & IOPARM_DT_HAS_FORMAT) |