[Bug libfortran/27757] [4.1/4.2 Regression] Problems with direct access io

[jvdelisle at gcc dot gnu dot org]

------- Comment #14 from jvdelisle at gcc dot gnu dot org  2006-05-29 20:49 
-------
Here is the fix folks.  Unbelievable!

Index: io/unix.c
===================================================================
*** io/unix.c   (revision 114207)
--- io/unix.c   (working copy)
*************** fd_seek (unix_stream * s, gfc_offset off
*** 569,574 ****
--- 569,575 ----
      }

    s->physical_offset = s->logical_offset = offset;
+   s->active = 0;

    return (lseek (s->fd, offset, SEEK_SET) < 0) ? FAILURE : SUCCESS;
  }


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27757