[OpenMP][Tests] fix data race in an OpenMP runtime test

Reviewed by: AndreyChurbanov Differential Revision: https://reviews.llvm.org/D81804
llvm · Jun 15, 2020 · 9e5aefc · 9e5aefc
1 parent ad1c46c
commit 9e5aefc
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/openmp/runtime/test/tasking/omp_fill_taskqueue.c b/openmp/runtime/test/tasking/omp_fill_taskqueue.c
@@ -47,10 +47,14 @@ int main()
           // all tasks, and detect the test failure if it has not been done yet.
           if (failed < 0)
             failed = throttling ? enqueued == NUM_TASKS : enqueued < NUM_TASKS;
+#pragma omp atomic write
           block = 0;
         }
-        while (block)
-          ;
+        int wait = 0;
+        do {
+#pragma omp atomic read
+          wait = block;
+        } while (wait);
       }
     }
     block = 0;