list_read_7.f90: Fix test so that test file is deleted when done.

2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	*gfortran.dg/list_read_7.f90: Fix test so that test file is deleted when
	done.

From-SVN: r130171

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a016d231734c82ec8408347ddbe38572b48a0935..4a5a0a6a3620b1584ecad655ac3607092513664e 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       *gfortran.dg/list_read_7.f90: Fix test so that test file is deleted when
+       done.
+
 2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR fortran/33162

diff --git a/gcc/testsuite/gfortran.dg/list_read_7.f90 b/gcc/testsuite/gfortran.dg/list_read_7.f90
index 5db89959e87b4ee1090d126fef26b5e0b28f0d84..4ee08354b1d3a007a87e49c7728b1f43af28b384 100644 (file)
--- a/gcc/testsuite/gfortran.dg/list_read_7.f90
+++ b/gcc/testsuite/gfortran.dg/list_read_7.f90
@@ -3,7 +3,7 @@
 ! Test case modified from that in PR by <jvdelisle@gcc.gnu.org>
 integer, parameter :: fgsl_strmax = 128
 character(len=fgsl_strmax) :: ieee_str1, ieee_str2
-open(unit=20, file='test.dat',form='FORMATTED')
+open(unit=20, file='test.dat',form='FORMATTED', status="replace")
 write(20,'(a)',advance="no") ' 1.01010101010101010101010101010101&
        &01010101010101010101*2^-2 1.01010101010101010101011*2^-2'
 rewind(20)
@@ -14,4 +14,5 @@ if (trim(ieee_str1) /= &
 if (trim(ieee_str2) /= &
      '1.01010101010101010101011*2^-2') &
   call abort
+close(20, status="delete")
 end