Add missing cleanup in gfortran.dg/fmt_cache_1.f

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

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

From-SVN: r220796

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5bacb24..d8787e2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,9 @@
 2015-02-18  Tom de Vries  <tom@codesourcery.com>
 
+       * gfortran.dg/fmt_cache_1.f: Add missing close.
+
+2015-02-18  Tom de Vries  <tom@codesourcery.com>
+
        PR testsuite/65107
        * gfortran.dg/read_eof_8.f90: Add missing close.
 

diff --git a/gcc/testsuite/gfortran.dg/fmt_cache_1.f b/gcc/testsuite/gfortran.dg/fmt_cache_1.f
index b9b9fe8..3344e5d 100644 (file)
--- 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