diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-14 01:14:39 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-14 01:14:39 +0000 |
| commit | 0aeaf89a2a603defe954c6194cd88520511d6324 (patch) | |
| tree | 6a2fc434266761543f331a6b2287d6a470cf95fc /gcc | |
| parent | 83012bd421c000ab18fd89545ccde60b9f7fb603 (diff) | |
| download | gcc-0aeaf89a2a603defe954c6194cd88520511d6324.zip gcc-0aeaf89a2a603defe954c6194cd88520511d6324.tar.gz gcc-0aeaf89a2a603defe954c6194cd88520511d6324.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -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 |