* gfortran.dg/direct_io_1.f90, gfortran.dg/iostat_2.f90,

	gfortran.dg/open_new.f90, gfortran.dg/open_readonly_1.f90,
	gfortran.dg/pr16935.f90, gfortran.dg/pr20954.f,
	gfortran.dg/read_many_1.f, gfortran.dg/unf_io_convert_2.f90,
	gfortran.fortran-torture/execute/direct_io.f90,
	gfortran.fortran-torture/execute/inquire_2.f90,
	gfortran.fortran-torture/execute/inquire_4.f90,
	gfortran.fortran-torture/execute/list_read_1.f90,
	gfortran.fortran-torture/execute/open_replace.f90,
	gfortran.fortran-torture/execute/slash_edit.f90,
	gfortran.fortran-torture/execute/unopened_unit_1.f90: Delete
	temporary files from testcases.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112201 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f2c2947..528ba66 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,18 @@
+2006-03-18  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * gfortran.dg/direct_io_1.f90, gfortran.dg/iostat_2.f90,
+       gfortran.dg/open_new.f90, gfortran.dg/open_readonly_1.f90,
+       gfortran.dg/pr16935.f90, gfortran.dg/pr20954.f,
+       gfortran.dg/read_many_1.f, gfortran.dg/unf_io_convert_2.f90,
+       gfortran.fortran-torture/execute/direct_io.f90,
+       gfortran.fortran-torture/execute/inquire_2.f90,
+       gfortran.fortran-torture/execute/inquire_4.f90,
+       gfortran.fortran-torture/execute/list_read_1.f90,
+       gfortran.fortran-torture/execute/open_replace.f90,
+       gfortran.fortran-torture/execute/slash_edit.f90,
+       gfortran.fortran-torture/execute/unopened_unit_1.f90: Delete
+       temporary files from testcases.
+
 2006-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/26509

diff --git a/gcc/testsuite/gfortran.dg/direct_io_1.f90 b/gcc/testsuite/gfortran.dg/direct_io_1.f90
index 92eff29..96ae490 100644 (file)
--- a/gcc/testsuite/gfortran.dg/direct_io_1.f90
+++ b/gcc/testsuite/gfortran.dg/direct_io_1.f90
@@ -28,5 +28,5 @@ program direct_io_1
   n = 1
   write(12, rec=n) mt, nt
   write(12, rec=n+1) (p(m), m=1, nt)
-  close(12)
+  close(12, status='delete')
 end program

diff --git a/gcc/testsuite/gfortran.dg/iostat_2.f90 b/gcc/testsuite/gfortran.dg/iostat_2.f90
index 2b4cb5d..124567c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/iostat_2.f90
+++ b/gcc/testsuite/gfortran.dg/iostat_2.f90
@@ -4,4 +4,5 @@
   close(10, status="whatever", iostat=i)
   if (i == 0) call abort()
   write(17,*) 'foo'
+  close(17, status="delete")
   end

diff --git a/gcc/testsuite/gfortran.dg/open_new.f90 b/gcc/testsuite/gfortran.dg/open_new.f90
index 3b8e95a..96edd93 100644 (file)
--- a/gcc/testsuite/gfortran.dg/open_new.f90
+++ b/gcc/testsuite/gfortran.dg/open_new.f90
@@ -7,5 +7,5 @@ program main
   close(nout)
   open(nout, file="foo.dat", status="new",err=100)
   call abort                 ! This should never happen
-100 continue
+100 call unlink ("foo.dat")
 end program main

diff --git a/gcc/testsuite/gfortran.dg/open_readonly_1.f90 b/gcc/testsuite/gfortran.dg/open_readonly_1.f90
index 622a07d..3adbbd3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/open_readonly_1.f90
+++ b/gcc/testsuite/gfortran.dg/open_readonly_1.f90
@@ -9,6 +9,6 @@ program prog
   open (unit=10, file='PR19451.dat', action="read")
   write (10,*,err=20) "Hello World"
   call abort()
-  20 continue
+  20 close (10, status='delete')
 end program
 

diff --git a/gcc/testsuite/gfortran.dg/pr16935.f90 b/gcc/testsuite/gfortran.dg/pr16935.f90
index 63f5400..b7dd236 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr16935.f90
+++ b/gcc/testsuite/gfortran.dg/pr16935.f90
@@ -4,4 +4,5 @@
        program bug2
        implicit none
        open( 1 , file = "str_500.txt", position = "REWIND" )
+       close( 1 , status = "DELETE" )
        end

diff --git a/gcc/testsuite/gfortran.dg/pr20954.f b/gcc/testsuite/gfortran.dg/pr20954.f
index b19b782..be820c1 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr20954.f
+++ b/gcc/testsuite/gfortran.dg/pr20954.f
@@ -8,4 +8,5 @@
       filename = 'input'
       open (2,file=filename)
       write (line, '(5a16)') (string(i),i=1,5)
+      close (2, status='delete')
       end

diff --git a/gcc/testsuite/gfortran.dg/read_many_1.f b/gcc/testsuite/gfortran.dg/read_many_1.f
index ef81fa8..4fac689 100644 (file)
--- a/gcc/testsuite/gfortran.dg/read_many_1.f
+++ b/gcc/testsuite/gfortran.dg/read_many_1.f
@@ -20,4 +20,5 @@
       if (b(2).ne.5) call abort()
       if (a(3000).ne.1234) call abort()
       if (b(2048).ne.5678) call abort()
+      close(2, status='delete')
       end

diff --git a/gcc/testsuite/gfortran.dg/unf_io_convert_2.f90 b/gcc/testsuite/gfortran.dg/unf_io_convert_2.f90
index 42bad3e..f29f6ee 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unf_io_convert_2.f90
+++ b/gcc/testsuite/gfortran.dg/unf_io_convert_2.f90
@@ -35,5 +35,6 @@ program main
   backspace 10
   read (10) j
   if (j /= Z'5566770011223344') call abort
+  close (10, status="delete")
 
 end program main

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90
index b8078f0..deba9a6 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90
@@ -13,6 +13,7 @@
             CALL ABORT
           ENDIF
        ENDDO
+       CLOSE(10,STATUS='DELETE')
        STOP
  10    CONTINUE
 !      PRINT*,' ERR= RETURN FROM READ OR WRITE'

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90
index bc7ea74..4810517 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90
@@ -3,4 +3,5 @@
       OPEN(FILE='CSEQ', UNIT=23)
       INQUIRE(FILE='CSEQ',NUMBER=UNIT)
       IF (UNIT.NE.23) CALL ABORT
+      CLOSE(UNIT, STATUS='DELETE')
       END

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90
index 5b94ad2..2fa69cc 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90
@@ -16,5 +16,6 @@
 !          PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4'
            CALL ABORT
        ENDIF
+       CLOSE(UNIT=10,STATUS='DELETE')
        END
 

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90
index 040ae72..0a20b4b 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90
@@ -50,4 +50,5 @@
               if (x(i,k).ne.y(i,k)) call abort
          end do
       end do
+      close(nin, status='delete')
       end program d

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90
index 1d8ac4b..11d0d09 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90
@@ -2,4 +2,5 @@
 ! open with 'REPLACE' creates the file if it does not exist.
       PROGRAM iobug
       OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE')
+      CLOSE(10,status='DELETE')
       END PROGRAM iobug

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90
index c73d543..29f44a7 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90
@@ -8,7 +8,7 @@
        OPEN(7)
  200   FORMAT(I4,///I4)
        READ(7,200)I,J
-       CLOSE(7) 
+       CLOSE(7, STATUS='DELETE') 
        IF (I.NE.1) CALL ABORT
        IF (J.NE.4) CALL ABORT
        END

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90
index d87406a..66895b0 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90
@@ -9,5 +9,6 @@ program unopened_unit_1
     Read(99,*)J
     If (J.ne.I) Call abort
   End Do
+  Close(99, Status='Delete')
 End program