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 | |
| 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')
7 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 index b8078f03d5e..deba9a6bfa5 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 @@ -13,6 +13,7 @@ CALL ABORT ENDIF ENDDO + CLOSE(10,STATUS='DELETE') STOP 10 CONTINUE ! PRINT*,' ERR= RETURN FROM READ OR WRITE' diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 index bc7ea74c39a..48105170248 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 @@ -3,4 +3,5 @@ OPEN(FILE='CSEQ', UNIT=23) INQUIRE(FILE='CSEQ',NUMBER=UNIT) IF (UNIT.NE.23) CALL ABORT + CLOSE(UNIT, STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 index 5b94ad232bc..2fa69cc3f9f 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 @@ -16,5 +16,6 @@ ! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4' CALL ABORT ENDIF + CLOSE(UNIT=10,STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 index 040ae72d8e0..0a20b4bde83 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 @@ -50,4 +50,5 @@ if (x(i,k).ne.y(i,k)) call abort end do end do + close(nin, status='delete') end program d 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 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 index c73d5432a31..29f44a7dd4e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 @@ -8,7 +8,7 @@ OPEN(7) 200 FORMAT(I4,///I4) READ(7,200)I,J - CLOSE(7) + CLOSE(7, STATUS='DELETE') IF (I.NE.1) CALL ABORT IF (J.NE.4) CALL ABORT END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 index d87406ab4db..66895b02af1 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 @@ -9,5 +9,6 @@ program unopened_unit_1 Read(99,*)J If (J.ne.I) Call abort End Do + Close(99, Status='Delete') End program |
