This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [gfortran] patch for pr16597

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)
Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]