* 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

7 files changed, 12 insertions, 6 deletions

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