mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-19 08:43:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/27757 (Problems with direct access io)

Browse Source 
2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/27757
	* io/unix.c (fd_seek): Set active to zero.

From-SVN: r114220
This commit is contained in:
Jerry DeLisle 2006-05-29 23:39:53 +00:00
parent ae73e07642
commit 22b2be06ec
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
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

1
libgfortran/io/unix.c
View File

@ -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;
}