[gfortran] patch for pr16597

Bud Davis bdavis9659@comcast.net
Fri Aug 27 09:10:00 GMT 2004


Committed with the changes suggested by steven.  

Not sure if the global g.mode is obsolete, but there was one case where
it was obvious that the unit mode was more applicable (rewind.c).  I
changed that and committed it with the above changes. The diff is below
on that one file.


--bud


*** rewind.c    15 May 2004 20:44:38 -0000      1.3
--- rewind.c    27 Aug 2004 07:59:30 -0000      1.4
*************** st_rewind (void)
*** 40,46 ****
                        "Cannot REWIND a file opened for DIRECT access");
        else
        {
!           if (g.mode==WRITING)
              struncate(u->s);
          u->last_record = 0;
          if (sseek (u->s, 0) == FAILURE)
--- 40,46 ----
                        "Cannot REWIND a file opened for DIRECT access");
        else
        {
!           if (u->mode==WRITING)
              struncate(u->s);
          u->last_record = 0;
          if (sseek (u->s, 0) == FAILURE)




More information about the Gcc-patches mailing list