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
2015-02-24  Tom de Vries  <t...@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

Reply via email to