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 | |
| 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
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/unix.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3ecabcd..227f61b 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,10 @@ 2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org> + PR libgfortran/27757 + * io/unix.c (fd_seek): Set active to zero. + +2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org> + PR libgfortran/27634 * io/format.c (parse_format_list): Allow missing period in format only if -std=legacy. 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; } |