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

re PR libfortran/25139 ("Invalid argument" error on I/O)

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

	PR libgfortran/25139
	* gfortran.dg/backspace_2.f: New test.

From-SVN: r109123
This commit is contained in:
Jerry DeLisle 2005-12-28 21:12:52 +00:00
parent 844234fb50
commit 03345deb5e
2 changed files with 26 additions and 0 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 @@
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25139
* gfortran.dg/backspace_2.f: New test.
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25550

21
gcc/testsuite/gfortran.dg/backspace_2.f Normal file
View file

@ -0,0 +1,21 @@
! { dg-do run }
! PR25139 Repeated backspaces and reads.
! Derived from example given in PR by Dale Ranta and FX Coudert
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
integer dat(5)
dat = (/ 0, 0, 0, 0, 1 /)
write(11) dat,dat,dat,dat
rewind 11
write(11) dat
read(11,end=1008) dat
call abort()
1008 continue
backspace 11
write(11) dat
read(11,end=1011) dat
call abort()
1011 continue
backspace 11
backspace 11
end