diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-04-17 21:30:29 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-04-17 21:30:29 +0200 |
| commit | fe92f29faf2fc9aa7bba0f8562a35695515e00d0 (patch) | |
| tree | d92440b2b65d91cafe991e4cd0de582c164cee0b /libgfortran/io/unit.c | |
| parent | bd9ee48c161d5cb09842d04112ffd58e6a281344 (diff) | |
| download | gcc-fe92f29faf2fc9aa7bba0f8562a35695515e00d0.zip gcc-fe92f29faf2fc9aa7bba0f8562a35695515e00d0.tar.gz gcc-fe92f29faf2fc9aa7bba0f8562a35695515e00d0.tar.bz2 | |
re PR libfortran/38199 (missed optimization: I/O performance)
2012-04-17 Tobias Burnus <burnus@net-b.de>
PR libfortran/38199
PR libfortran/50673
* io/unit.c (get_internal_unit): Properly check for the presence
of the format string.
From-SVN: r186548
Diffstat (limited to 'libgfortran/io/unit.c')
| -rw-r--r-- | libgfortran/io/unit.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 6b68e14..911521d 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -419,7 +419,7 @@ get_internal_unit (st_parameter_dt *dtp) { /* If we are not processing an array, adjust the unit record length not to include trailing blanks for list-formatted reads. */ - if (dtp->u.p.mode == READING && dtp->format == NULL) + if (dtp->u.p.mode == READING && !(dtp->common.flags & IOPARM_DT_HAS_FORMAT)) { if (dtp->common.unit == 0) { |