From d3b6dbdc7637c8eeefe0ad74523a6e842e895d6d Mon Sep 17 00:00:00 2001
From: Sun Serega <sunserega2@gmail.com>
Date: Tue, 17 Oct 2023 14:16:01 +0300
Subject: [PATCH] (test2)

---
 Modules/OpenCLABC.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Modules/OpenCLABC.pas b/Modules/OpenCLABC.pas
index fc7c7446..7d27bcff 100644
--- a/Modules/OpenCLABC.pas
+++ b/Modules/OpenCLABC.pas
@@ -9208,7 +9208,7 @@   CLKernelArgPrivateCommon<TInp> = record
           OpenCLABCInternalException.RaiseIfError( cl.Flush(cq) );
           enq_ev.MultiAttachCallback(()->
           begin
-            if enq_act<>nil then enq_act(g.c);
+            if (enq_act<>nil) and not l1_err_handler.HadError then enq_act(g.c);
             g.ReturnCQ(cq);
             res_ev.SetComplete(l2_err_handler.HadError);
           end{$ifdef EventDebug}, $'propagating Enq ev of {TypeName(q)} to res_ev: {res_ev.uev}'{$endif});