From: Jerry DeLisle Date: Wed, 14 Nov 2007 01:14:39 +0000 (+0000) Subject: list_read_7.f90: Fix test so that test file is deleted when done. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0aeaf89a2a603defe954c6194cd88520511d6324;p=gcc.git list_read_7.f90: Fix test so that test file is deleted when done. 2007-11-13 Jerry DeLisle *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 a016d231734..4a5a0a6a362 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-11-13 Jerry DeLisle + + *gfortran.dg/list_read_7.f90: Fix test so that test file is deleted when + done. + 2007-11-13 Jerry DeLisle PR fortran/33162 diff --git a/gcc/testsuite/gfortran.dg/list_read_7.f90 b/gcc/testsuite/gfortran.dg/list_read_7.f90 index 5db89959e87..4ee08354b1d 100644 --- 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 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