From: Tom de Vries <tom@codesourcery.com>
Date: Wed, 18 Feb 2015 20:30:12 +0000 (+0000)
Subject: Add missing cleanup in gfortran.dg/fmt_cache_1.f
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9f468c2bd248d90133541d924922b666bcd6fb0d;p=gcc.git

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 5bacb24025f..d8787e2e0fd 100644
--- 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 b9b9fe8ddc9..3344e5d86ca 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