From 2a897d3dc5464ee8f03c1a9e770bb8f510fdb496 Mon Sep 17 00:00:00 2001 From: ghazi Date: Tue, 21 Mar 2006 21:17:54 +0000 Subject: [PATCH] * gfortran.dg/advance.f90, gfortran.dg/backspace_2.f, gfortran.dg/comma.f, gfortran.dg/direct_io_2.f90, gfortran.dg/tl_editing.f90, gfortran.dg/unf_io_convert_1.f90, gfortran.dg/write_back.f, gfortran.fortran-torture/execute/inquire_1.f90, gfortran.fortran-torture/execute/inquire_3.f90: Delete temp file. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112258 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 9 +++++++++ gcc/testsuite/gfortran.dg/advance.f90 | 1 + gcc/testsuite/gfortran.dg/backspace_2.f | 1 + gcc/testsuite/gfortran.dg/comma.f | 1 + gcc/testsuite/gfortran.dg/direct_io_2.f90 | 1 + gcc/testsuite/gfortran.dg/tl_editing.f90 | 1 + gcc/testsuite/gfortran.dg/unf_io_convert_1.f90 | 12 ++++++------ gcc/testsuite/gfortran.dg/write_back.f | 1 + gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 | 1 + gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 | 1 + 10 files changed, 23 insertions(+), 6 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4726020..9b38f2c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2006-03-21 Kaveh R. Ghazi + + * gfortran.dg/advance.f90, gfortran.dg/backspace_2.f, + gfortran.dg/comma.f, gfortran.dg/direct_io_2.f90, + gfortran.dg/tl_editing.f90, gfortran.dg/unf_io_convert_1.f90, + gfortran.dg/write_back.f, + gfortran.fortran-torture/execute/inquire_1.f90, + gfortran.fortran-torture/execute/inquire_3.f90: Delete temp file. + 2006-03-21 Jeff Law * gcc.dg/tree-ssa/vrp28.c: New test. diff --git a/gcc/testsuite/gfortran.dg/advance.f90 b/gcc/testsuite/gfortran.dg/advance.f90 index 07b605f..9002c52 100644 --- a/gcc/testsuite/gfortran.dg/advance.f90 +++ b/gcc/testsuite/gfortran.dg/advance.f90 @@ -9,4 +9,5 @@ program pr25463 rewind (10) read (10, '(a)') str if (str.ne.'abc') call abort() + close (10, status='delete') end diff --git a/gcc/testsuite/gfortran.dg/backspace_2.f b/gcc/testsuite/gfortran.dg/backspace_2.f index 4291e04..a8c55e7 100644 --- a/gcc/testsuite/gfortran.dg/backspace_2.f +++ b/gcc/testsuite/gfortran.dg/backspace_2.f @@ -17,5 +17,6 @@ 1011 continue backspace 11 backspace 11 + close(11, status='delete') end diff --git a/gcc/testsuite/gfortran.dg/comma.f b/gcc/testsuite/gfortran.dg/comma.f index d497693..b369bf4 100644 --- a/gcc/testsuite/gfortran.dg/comma.f +++ b/gcc/testsuite/gfortran.dg/comma.f @@ -14,5 +14,6 @@ rewind(11) read(11,*)stuff if (stuff.ne.1.0) call abort() + close(11, status='delete') end diff --git a/gcc/testsuite/gfortran.dg/direct_io_2.f90 b/gcc/testsuite/gfortran.dg/direct_io_2.f90 index 847ce29..13b27b8 100644 --- a/gcc/testsuite/gfortran.dg/direct_io_2.f90 +++ b/gcc/testsuite/gfortran.dg/direct_io_2.f90 @@ -40,5 +40,6 @@ READ(7, REC = IREC) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,IVON21, IVON22, IVON31, IVON32, IVON33, IVON34, IVON55, IVON56 IF (IRECN .NE. IRECCK) CALL ABORT 4135 CONTINUE + CLOSE(7, STATUS='DELETE') STOP END diff --git a/gcc/testsuite/gfortran.dg/tl_editing.f90 b/gcc/testsuite/gfortran.dg/tl_editing.f90 index ea86873..d2a7ede 100644 --- a/gcc/testsuite/gfortran.dg/tl_editing.f90 +++ b/gcc/testsuite/gfortran.dg/tl_editing.f90 @@ -27,6 +27,7 @@ program tl_editting rewind(10) read(10, '(a)') s if (s.ne.cline) call abort + close(10, status='delete') end program tl_editting diff --git a/gcc/testsuite/gfortran.dg/unf_io_convert_1.f90 b/gcc/testsuite/gfortran.dg/unf_io_convert_1.f90 index 8c4ec9c..5fe47c2 100644 --- a/gcc/testsuite/gfortran.dg/unf_io_convert_1.f90 +++ b/gcc/testsuite/gfortran.dg/unf_io_convert_1.f90 @@ -85,11 +85,11 @@ program main else call abort endif - ! use hexdump to look at the file "fort.9" - if (debug) then - close(9) - else - close(9,status='DELETE') - endif end if + ! use hexdump to look at the file "fort.9" + if (debug) then + close(9) + else + close(9,status='DELETE') + endif end program main diff --git a/gcc/testsuite/gfortran.dg/write_back.f b/gcc/testsuite/gfortran.dg/write_back.f index b9e21af..2776d20 100644 --- a/gcc/testsuite/gfortran.dg/write_back.f +++ b/gcc/testsuite/gfortran.dg/write_back.f @@ -20,5 +20,6 @@ read(11, end=250)idata call abort() 250 continue + close(11, status="delete") end diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 index 492f744..8deb6b8 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90 @@ -5,4 +5,5 @@ INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK) IF(BLANK.NE.'NULL') CALL ABORT IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT + CLOSE(UNIT=9,STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 index 8967dcf..29d2581 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90 @@ -9,5 +9,6 @@ INQUIRE(UNIT=9,NEXTREC=NREC) IF (NREC.NE.2) CALL ABORT ! PRINT*,NREC + CLOSE(UNIT=9,STATUS='DELETE') END -- 2.7.4