diff options
| author | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-18 17:08:54 +0000 |
|---|---|---|
| committer | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-18 17:08:54 +0000 |
| commit | 9975461f5d25d5c0c05bec04eb54ea93cba777af (patch) | |
| tree | 7a4ba7b27297722f298f1c5f7472806b3a2b80b1 /gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 | |
| parent | c7ef9e380a6ed2137c1c4a9bce8d8973eb7b7532 (diff) | |
| download | ppe42-gcc-9975461f5d25d5c0c05bec04eb54ea93cba777af.tar.gz ppe42-gcc-9975461f5d25d5c0c05bec04eb54ea93cba777af.zip | |
* gfortran.dg/direct_io_1.f90, gfortran.dg/iostat_2.f90,
gfortran.dg/open_new.f90, gfortran.dg/open_readonly_1.f90,
gfortran.dg/pr16935.f90, gfortran.dg/pr20954.f,
gfortran.dg/read_many_1.f, gfortran.dg/unf_io_convert_2.f90,
gfortran.fortran-torture/execute/direct_io.f90,
gfortran.fortran-torture/execute/inquire_2.f90,
gfortran.fortran-torture/execute/inquire_4.f90,
gfortran.fortran-torture/execute/list_read_1.f90,
gfortran.fortran-torture/execute/open_replace.f90,
gfortran.fortran-torture/execute/slash_edit.f90,
gfortran.fortran-torture/execute/unopened_unit_1.f90: Delete
temporary files from testcases.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112201 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 index 1d8ac4ba787..11d0d09461a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 @@ -2,4 +2,5 @@ ! open with 'REPLACE' creates the file if it does not exist. PROGRAM iobug OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE') + CLOSE(10,status='DELETE') END PROGRAM iobug |
