From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Thu, 10 May 2007 03:22:40 +0000 (+0000)
Subject: re PR libfortran/31880 ([4.2 only] silent data corruption in gfortran read statement)
X-Git-Tag: releases/gcc-4.3.0~5151
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=8e3dfafeb9cf5a76eed6b4e9162dd1a169979466;p=thirdparty%2Fgcc.git

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 2a75da7c8555..1788b457d192 100644
--- 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