diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/list_read_7.f90 | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a016d23..4a5a0a6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 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. diff --git a/gcc/testsuite/gfortran.dg/list_read_7.f90 b/gcc/testsuite/gfortran.dg/list_read_7.f90 index 5db8995..4ee0835 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 <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 |