procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/31099 (Runtime error on legal code using RECL)

Browse source 
2007-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31099
	* io/file_pos.c (st_rewind): Don't set bytes_left to zero.

From-SVN: r122970
This commit is contained in:
Jerry DeLisle 2007-03-16 00:41:36 +00:00
parent 9bdb685eda
commit b746fc0e8c
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
libgfortran/ChangeLog
View file

@ -1,3 +1,8 @@
2007-03-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31099
* io/file_pos.c (st_rewind): Don't set bytes_left to zero.
2007-03-15 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* runtime/backtrace.c: New file.

1
libgfortran/io/file_pos.c
View file

@ -311,7 +311,6 @@ st_rewind (st_parameter_filepos *fpp)
u->endfile = NO_ENDFILE;
u->current_record = 0;
u->bytes_left = 0;
u->strm_pos = 1;
u->read_bad = 0;
test_endfile (u);