Hi,

I found a fort.10 file in the test directories, and using the contents tracked it back to fmt_cache_1.f, 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-18  Tom de Vries  <t...@codesourcery.com>

	* gfortran.dg/fmt_cache_1.f: Add missing close.

---
 gcc/testsuite/gfortran.dg/fmt_cache_1.f | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/testsuite/gfortran.dg/fmt_cache_1.f b/gcc/testsuite/gfortran.dg/fmt_cache_1.f
index b9b9fe8..3344e5d 100644
--- a/gcc/testsuite/gfortran.dg/fmt_cache_1.f
+++ b/gcc/testsuite/gfortran.dg/fmt_cache_1.f
@@ -28,6 +28,7 @@
       teststring = ""
       read(10,'(a)') teststring
       if (teststring.ne."   arlxca =   0.00000     arlxcc =")call abort
+      close(10, status='delete')
       end program astap
 
 
-- 
1.9.1

Reply via email to