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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124591 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/gfortran.dg/unf_read_corrupted_2.f90 b/gcc/testsuite/gfortran.dg/unf_read_corrupted_2.f90
index 2a75da7..1788b45 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