* 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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4726020..9b38f2c 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 07b605f..9002c52 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 4291e04..a8c55e7 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 d497693..b369bf4 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 847ce29..13b27b8 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 ea86873..d2a7ede 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 8c4ec9c..5fe47c2 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 b9e21af..2776d20 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 492f744..8deb6b8 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 8967dcf..29d2581 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