diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-05-29 23:39:53 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-05-29 23:39:53 +0000 |
| commit | 22b2be06ecd3d6d154fad17e13f49b8a2df6d207 (patch) | |
| tree | 82167e74fde46238bcf5fa7464d3298aa2be694d /libgfortran/io | |
| parent | ae73e076424401da2f129f156803883ea9842e60 (diff) | |
| download | gcc-22b2be06ecd3d6d154fad17e13f49b8a2df6d207.zip gcc-22b2be06ecd3d6d154fad17e13f49b8a2df6d207.tar.gz gcc-22b2be06ecd3d6d154fad17e13f49b8a2df6d207.tar.bz2 | |
re PR libfortran/27757 (Problems with direct access io)
2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27757
* io/unix.c (fd_seek): Set active to zero.
From-SVN: r114220
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 93f4ea6..560047f 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; } |