From d9d1a9582ee922e3a54cd44097545843273ecf4c Mon Sep 17 00:00:00 2001 From: "Kaveh R. Ghazi" Date: Tue, 21 Mar 2006 21:17:54 +0000 Subject: [PATCH] advance.f90, [...]: Delete temp file. * 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. From-SVN: r112258 --- 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 + .../gfortran.fortran-torture/execute/inquire_1.f90 | 1 + .../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 47260202238..9b38f2c2080 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 07b605f885d..9002c52b5f7 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 4291e0463e1..a8c55e7f5c1 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 d4976935381..b369bf4b4ba 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 847ce2935b8..13b27b8986e 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 ea86873a726..d2a7ede436f 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 8c4ec9c3723..5fe47c28ef0 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 b9e21afccee..2776d20b87c 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 492f74476d3..8deb6b863b5 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 8967dcfbc0f..29d25812ab2 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.30.2