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
This commit is contained in:
parent
bd9ee48c16
commit
fe92f29faf
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue