git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/25550 (file data corrupted after reading end of file) 

2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25550
	* io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
	next_record_r.

From-SVN: r109101
This commit is contained in:
Jerry DeLisle 2005-12-28 07:20:19 +00:00
parent f55be19d7b
commit b5918dea9c
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25550
* io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
next_record_r.
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25419 PR libgfortran/25419

1
libgfortran/io/file_pos.c
View File

@ -255,6 +255,7 @@ st_rewind (st_parameter_filepos *fpp)
u->endfile = NO_ENDFILE; u->endfile = NO_ENDFILE;
u->current_record = 0; u->current_record = 0;
u->bytes_left = 0;
test_endfile (u); test_endfile (u);
} }
/* Update position for INQUIRE. */ /* Update position for INQUIRE. */