diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-29 23:39:53 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-29 23:39:53 +0000 |
| commit | 25545daf2fcd5d4004f3e9a4b79315e747c6b11c (patch) | |
| tree | 82167e74fde46238bcf5fa7464d3298aa2be694d /libgfortran/io | |
| parent | 6bb419210bcc769a6f32afb6b5fa03c415224235 (diff) | |
| download | gcc-25545daf2fcd5d4004f3e9a4b79315e747c6b11c.tar.gz | |
2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27757
* io/unix.c (fd_seek): Set active to zero.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114220 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/unix.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 93f4ea692d3..560047f88f8 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -569,6 +569,7 @@ fd_seek (unix_stream * s, gfc_offset offset) } s->physical_offset = s->logical_offset = offset; + s->active = 0; return (lseek (s->fd, offset, SEEK_SET) < 0) ? FAILURE : SUCCESS; } |