mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-11 23:45:12 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/38199 (missed optimization: I/O performance)

Browse Source 
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
This commit is contained in:
Tobias Burnus 2012-04-17 21:30:29 +02:00 committed by Tobias Burnus
parent bd9ee48c16
commit fe92f29faf
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
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.
2012-04-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/38199

2
libgfortran/io/unit.c
View File

@ -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)
{