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-Tag: upstream/12.2.0~56598
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9f468c2bd248d90133541d924922b666bcd6fb0d;p=platform%2Fupstream%2Fgcc.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 5bacb24..d8787e2 100644
--- 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
--- 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