mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-07 17:30:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

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 ();