OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/26880 (Can't read after non-advancing write with rewind)

Browse Source 
2006-03-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/26880
	* io/file_pos.c (st_rewind): Clear read_bad flag.

From-SVN: r112407
This commit is contained in:
Jerry DeLisle 2006-03-27 05:59:37 +00:00
parent 462ea7a505
commit ef6fa01d3a
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-03-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26880
* io/file_pos.c (st_rewind): Clear read_bad flag.
2006-03-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26661

1
libgfortran/io/file_pos.c
View File

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