diff mbox

[Committed] Add missing cleanup in gfortran.dg/readwrite_unf_direct_eor_1.f90

Message ID 54EC26BB.4030409@mentor.com
State New
Headers show

Commit Message

Tom de Vries Feb. 24, 2015, 7:22 a.m. UTC 
Hi,

I found a fort.10 file in the test directories, and tracked it back to 
readwrite_unf_direct_eor_1.f90, which creates fort.10 but doesn't remove it. 
This patch fixes that.

Tested by running the test-case and checking that fort.10 doesn't appear anymore 
in the test directory.

Committed as obvious.

Thanks,
- Tom
diff mbox

Patch

2015-02-24  Tom de Vries  <tom@codesourcery.com>

	* gfortran.dg/readwrite_unf_direct_eor_1.f90: Add missing close.
---
 gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90 b/gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90
index 2c19eba..461846a 100644
--- a/gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90
+++ b/gcc/testsuite/gfortran.dg/readwrite_unf_direct_eor_1.f90
@@ -10,4 +10,5 @@ 
       read (10,  rec=1, err=20) i, j
       call abort()
  20   continue
+      close (10, status="delete")
       end
-- 
1.9.1