[gfortran] patch for pr16597

[Bud Davis]

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)