From d595a8ed7e416dd40c2971ef5e3ec7f36b7db362 Mon Sep 17 00:00:00 2001
From: Cedric Nugteren <web@cedricnugteren.nl>
Date: Thu, 22 Sep 2016 20:47:22 +0200
Subject: Fixed a bug waiting for an invalid event in case of a non-succesfull
 CLBlast call in the tests and samples

---
 test/routines/level2/xtbmv.hpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test/routines/level2/xtbmv.hpp')

diff --git a/test/routines/level2/xtbmv.hpp b/test/routines/level2/xtbmv.hpp
index 54e7fe18..cf30c2f7 100644
--- a/test/routines/level2/xtbmv.hpp
+++ b/test/routines/level2/xtbmv.hpp
@@ -78,7 +78,7 @@ class TestXtbmv {
                           buffers.a_mat(), args.a_offset, args.a_ld,
                           buffers.x_vec(), args.x_offset, args.x_inc,
                           &queue_plain, &event);
-    clWaitForEvents(1, &event);
+    if (status == StatusCode::kSuccess) { clWaitForEvents(1, &event); clReleaseEvent(event); }
     return status;
   }
 
-- 
cgit v1.2.3