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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 302895bbb339ca7c029b9ac64930d91838768f22..7f1a082a26483fe8fce7f4f0a144575d57caf21d 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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

diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c
index 6b68e1494d0b8c13f256eb13255a679ebf26825a..911521d5df777a37598e7d9b239024c51ff5f56c 100644 (file)
--- 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)
            {