re PR libfortran/31880 ([4.2 only] silent data corruption in gfortran read statement)

2007-05-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/31880
	* gfortran.dg/unf_read_corrupted_2.f90: Fix test.

From-SVN: r124591

diff --git a/gcc/testsuite/gfortran.dg/unf_read_corrupted_2.f90 b/gcc/testsuite/gfortran.dg/unf_read_corrupted_2.f90
index 2a75da7c855500c73cad5db1807aaab8759c3b32..1788b457d1921acc5cf48c44489f7ed5259932dd 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unf_read_corrupted_2.f90
+++ b/gcc/testsuite/gfortran.dg/unf_read_corrupted_2.f90
@@ -14,7 +14,7 @@
          d(i)=i
       end do
 
-      open  (3,file='a',form='unformatted')
+      open  (3,form='unformatted', status="scratch")
       write (3) a,b,c,d,e
       rewind 3
       d = 0