1 /* 2 * task-taskwait-nested.c -- Archer testcase 3 */ 4 5 //===----------------------------------------------------------------------===// 6 // 7 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 8 // 9 // See tools/archer/LICENSE.txt for details. 10 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 11 // 12 //===----------------------------------------------------------------------===// 13 14 15 // RUN: %libarcher-compile-and-run | FileCheck %s 16 // REQUIRES: tsan 17 #include <omp.h> 18 #include <stdio.h> 19 #include <unistd.h> 20 #include "ompt/ompt-signal.h" 21 main(int argc,char * argv[])22int main(int argc, char *argv[]) { 23 int var = 0, a = 0; 24 25 #pragma omp parallel num_threads(2) shared(var, a) 26 #pragma omp master 27 { 28 #pragma omp task 29 { 30 #pragma omp task shared(var, a) 31 { 32 OMPT_SIGNAL(a); 33 delay(100); 34 var++; 35 } 36 #pragma omp taskwait 37 } 38 39 // Give other thread time to steal the task and execute its child. 40 OMPT_WAIT(a, 1); 41 42 #pragma omp taskwait 43 var++; 44 } 45 46 fprintf(stderr, "DONE\n"); 47 int error = (var != 2); 48 return error; 49 } 50 51 // CHECK-NOT: ThreadSanitizer: data race 52 // CHECK-NOT: ThreadSanitizer: reported 53 // CHECK: DONE 54