From 6a21f694ff3995c4ea5889df8474fcb4de7bc0b1 Mon Sep 17 00:00:00 2001
From: Peter Boyle <paboyle@ph.ed.ac.uk>
Date: Tue, 4 Apr 2023 07:33:24 -0700
Subject: [PATCH] Apply barrier in Gather kernel sequence. Could place before
 comms, or in Gather, but decided to insist Gather means Gather is done

---
 Grid/qcd/action/fermion/WilsonCompressor.h | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Grid/qcd/action/fermion/WilsonCompressor.h b/Grid/qcd/action/fermion/WilsonCompressor.h
index 72f8b810..186fa278 100644
--- a/Grid/qcd/action/fermion/WilsonCompressor.h
+++ b/Grid/qcd/action/fermion/WilsonCompressor.h
@@ -507,6 +507,7 @@ public:
     }
     this->face_table_computed=1;
     assert(this->u_comm_offset==this->_unified_buffer_size);
+    accelerator_barrier();
   }
 
 };