+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
! 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)
if (trim(ieee_str2) /= &
'1.01010101010101010101011*2^-2') &
call abort
+close(20, status="delete")
end