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

re PR libfortran/15755 (gfortran: backspace call causes bus error)

Browse source 
2004-06-08  Bud Davis  <bdavis9659@comcast.net>

	PR gfortran/15755
	* gfortran.fortran-torture/execute/backspace.c : New test.

	* io/backspace.c(st_backspace): call correct routine for
	formatted and un-formatted units.

From-SVN: r82806
This commit is contained in:
Bud Davis 2004-06-09 00:55:04 +00:00 • committed by Bud Davis
parent 0760c3805d
commit 31b6f11ab0
4 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2004-06-09 Bud Davis <bdavis9659@comcast.net>
PR gfortran/15755
* gfortran.fortran-torture/execute/backspace.c : New test.
2004-06-09 Paul Brook <paul@codesourcery.com>
* gfortran.fortran-torture/execure/intrinsic_associated.f90

14
gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90 Normal file
View file

@ -0,0 +1,14 @@
! pr 15755
implicit none
character*1 C
open(10)
write(10,*)'a'
write(10,*)'b'
write(10,*)'c'
rewind(10)
read(10,*)C
backspace(10)
read(10,*) C
if (C.ne.'b') call abort
close(10,STATUS='DELETE')
end

6
libgfortran/ChangeLog
View file

@ -1,3 +1,9 @@
2004-06-09 Bud Davis <bdavis9659@comcast.net>
PR gfortran/15755
* io/backspace.c(st_backspace): call correct routine for
formatted and un-formatted units.
2004-05-30 Andreas Jaeger <aj@suse.de>, Steven Bosscher <stevenb@suse.de>
PR gfortran/11800

2
libgfortran/io/backspace.c
View file

@ -149,7 +149,7 @@ st_backspace (void)
if (file_position (u->s) == 0)
goto done; /* Common special case */
if (u->flags.form == FORM_UNFORMATTED)
if (u->flags.form == FORM_FORMATTED)
formatted_backspace ();
else
unformatted_backspace ();