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

re PR libfortran/40334 (changed BACKSPACE behaviour at end of file.) 

2009-06-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/40334
	* gfortran.dg/backspace_11.f90: New test.

From-SVN: r148304
This commit is contained in:
Jerry DeLisle 2009-06-09 03:18:30 +00:00
parent f25ff4ec4b
commit 3f4e4c50ff
2 changed files with 29 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 @@
2009-06-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/40334
* gfortran.dg/backspace_11.f90: New test.
2009-06-08 Jakub Jelinek <jakub@redhat.com>
PR c++/40373

24
gcc/testsuite/gfortran.dg/backspace_11.f90 Normal file
View File

@ -0,0 +1,24 @@
! { dg-do run }
! PR 40334 backspace regression
program backspace_11
implicit none
character(len=5) :: str
open(10, access='sequential', status='scratch')
write(10,'(A)')'HELLO'
rewind(10)
do
read(10,'(A)',end=1) str
enddo
1 backspace 10
!the file pointer is now at EOF
read(10,*,end=2) str
call abort
2 backspace 10
!the file pointer is now at EOF
read(10,'(A)',end=3) str
call abort
3 continue
end program backspace_11