gcov.exp (verify-intermediate): Add missing close.

2018-09-11  Joey Ye  <joey.ye@arm.com>

    * lib/gcov.exp (verify-intermediate): Add missing close.

From-SVN: r264202

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2af919b99fe263f0e21b58863e6053999d635045..a758e1c1aa367321d11db19f1c3505ebf5870825 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2018-09-11  Joey Ye  <joey.ye@arm.com>
+
+       * lib/gcov.exp (verify-intermediate): Add missing close.
+
 2018-09-11  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/86830

diff --git a/gcc/testsuite/lib/gcov.exp b/gcc/testsuite/lib/gcov.exp
index 03eb14a3f4faf3e94eb85afbe2339af2b136382c..f35ca59fbe308c4d94c5722e9f762f7990d65e81 100644 (file)
--- a/gcc/testsuite/lib/gcov.exp
+++ b/gcc/testsuite/lib/gcov.exp
@@ -133,6 +133,7 @@ proc verify-intermediate { testname testcase file } {
        fail "$testname expected 'branch:' tag not found"
        incr failed
     }
+    close $fd
     return $failed
 }