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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 47260202238664c9f70cb455e740890a668c1aab..9b38f2c20803979aef0017cb39eb64df6c63c9f1 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+2006-03-21  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * 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  <law@redhat.com>
 
        * 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 07b605f885d205eb6a531595f08a2f1d2fc175e6..9002c52b5f75849057c139fbe61cc798bcab2344 100644 (file)
--- 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 4291e0463e1887ec0bd587c3339110d95a71f261..a8c55e7f5c18252943a4937de3009009daad5613 100644 (file)
--- 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 d4976935381848f263cd18a7976d0f71ea22898c..b369bf4b4bad6b0556736402d954b812e5d13cfa 100644 (file)
--- 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 847ce2935b8bc23a60b191cb03fefc666d4c5f9c..13b27b8986ee654cfac672d8c162637c78c80db6 100644 (file)
--- 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 ea86873a726b163ce8f9c3dab95a5eabe64b40be..d2a7ede436f986560706b722a53931611d128bc2 100644 (file)
--- 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 8c4ec9c3723bc1b55d71193727e197d7783d4c38..5fe47c28ef0525d615381dcfead4d45ee7b9a295 100644 (file)
--- 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 b9e21afcceea4079a8b123a1b3e142ceaa14ef72..2776d20b87cf0800aa4e641f38127ceaf2a1502e 100644 (file)
--- 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 492f74476d3898c6454131dbb4255a24fc720f67..8deb6b863b5dbdb5ef45f573d1ce211b71fddd1f 100644 (file)
--- 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 8967dcfbc0fc9182a64fdccfadbc638dedfd4945..29d25812ab2ddd185fe26c54e398f3bb3df180f1 100644 (file)
--- 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