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 5bacb24025feba79d84147d37c519f52cd238fba..d8787e2e0fdb8f055dfde381dd863c98717a6533 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/fmt_cache_1.f b/gcc/testsuite/gfortran.dg/fmt_cache_1.f
index b9b9fe8ddc9f2b081f8b7b68590a9a38e5483bcf..3344e5d86ca2f34042fbf5e612d4bd7c94fac73f 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