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

re PR fortran/26509 (incorrect behaviour of error-handler for direct access write)

Browse source 
2006-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/26509
	gfortran.dg/write_direct_eor.f90: New test.

From-SVN: r112199
This commit is contained in:
Jerry DeLisle 2006-03-18 01:59:50 +00:00
parent 54f9e2781e
commit 3eb015bcf6
2 changed files with 17 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 @@
2006-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26509
gfortran.dg/write_direct_eor.f90: New test.
2006-03-17 David Edelsohn <edelsohn@gnu.org>
* gcc.target/powerpc/pr26350.c: New.

12
gcc/testsuite/gfortran.dg/write_direct_eor.f90 Normal file
View file

@ -0,0 +1,12 @@
! { dg-do run }
! PR26509 : Writing beyond fixed length direct access records.
! Test case derived from PR.
! Submitted by Jerry Delisle <jvdelisle@gcc.gnu.org>.
program testrecl
implicit none
open(unit = 10, form = 'unformatted', access = 'direct', recl = 4)
write(unit=10,rec=1, err=100) 1d0
call abort()
100 continue
close(unit=10, status='delete')
end