From fc60b22f9c89ea1b1609fad15615131c45248f73 Mon Sep 17 00:00:00 2001
From: "Kaveh R. Ghazi" <ghazi@caip.rutgers.edu>
Date: Sat, 18 Mar 2006 17:08:54 +0000
Subject: [PATCH] direct_io_1.f90, [...]: Delete temporary files from
testcases.
* 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.
From-SVN: r112201
---
gcc/testsuite/ChangeLog | 15 +++++++++++++++
gcc/testsuite/gfortran.dg/direct_io_1.f90 | 2 +-
gcc/testsuite/gfortran.dg/iostat_2.f90 | 1 +
gcc/testsuite/gfortran.dg/open_new.f90 | 2 +-
gcc/testsuite/gfortran.dg/open_readonly_1.f90 | 2 +-
gcc/testsuite/gfortran.dg/pr16935.f90 | 1 +
gcc/testsuite/gfortran.dg/pr20954.f | 1 +
gcc/testsuite/gfortran.dg/read_many_1.f | 1 +
gcc/testsuite/gfortran.dg/unf_io_convert_2.f90 | 1 +
.../execute/direct_io.f90 | 1 +
.../execute/inquire_2.f90 | 1 +
.../execute/inquire_4.f90 | 1 +
.../execute/list_read_1.f90 | 1 +
.../execute/open_replace.f90 | 1 +
.../execute/slash_edit.f90 | 2 +-
.../execute/unopened_unit_1.f90 | 1 +
16 files changed, 30 insertions(+), 4 deletions(-)
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f2c294754cf7..528ba66c649d 100644
--- 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 92eff2942b42..96ae49035063 100644
--- 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 2b4cb5d7e832..124567c1e322 100644
--- 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 3b8e95ae9440..96edd93c3473 100644
--- 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 622a07d2aeea..3adbbd324988 100644
--- 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 63f540057fdb..b7dd236fddf5 100644
--- 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 b19b782f6679..be820c1e937e 100644
--- 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 ef81fa81f44e..4fac689ac48b 100644
--- 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 42bad3ee30ff..f29f6ee249e8 100644
--- 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 b8078f03d5eb..deba9a6bfa50 100644
--- 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 bc7ea74c39af..48105170248d 100644
--- 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 5b94ad232bc8..2fa69cc3f9f8 100644
--- 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 040ae72d8e06..0a20b4bde839 100644
--- 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 1d8ac4ba7870..11d0d09461ab 100644
--- 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 c73d5432a31e..29f44a7dd4eb 100644
--- 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 d87406ab4db6..66895b02af16 100644
--- 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
--
GitLab