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

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

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

From-SVN: r112199

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1dca3d2db0c9061713c46c3adbd2b80efe2d407d..f2c294754cf76d12afd039b55b9440db063da798 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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.

diff --git a/gcc/testsuite/gfortran.dg/write_direct_eor.f90 b/gcc/testsuite/gfortran.dg/write_direct_eor.f90
new file mode 100644 (file)
index 0000000..9044642
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/write_direct_eor.f90
@@ -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