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

gcc/testsuite/ChangeLog

 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
 	*gfortran.dg/proc_decl_1.f90: Update.
 	*gfortran.dg/proc_decl_7.f90: New test.

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