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

+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.

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

gcc/testsuite/gfortran.dg/backspace_2.f

@@ -17,5 +17,6 @@
  1011 continue
       backspace 11
       backspace 11
+      close(11, status='delete')
       end
 

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
 

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

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
 

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

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
 

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

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