xref: /llvm-project/openmp/tools/archer/tests/worksharing/ordered.c (revision 77ad98c80881ba90bf18ec2780169c60e02c159b)
12b8115b1Sprotze@itc.rwth-aachen.de /*
22b8115b1Sprotze@itc.rwth-aachen.de  * ordered.c -- Archer testcase
32b8115b1Sprotze@itc.rwth-aachen.de  */
42b8115b1Sprotze@itc.rwth-aachen.de 
52b8115b1Sprotze@itc.rwth-aachen.de //===----------------------------------------------------------------------===//
62b8115b1Sprotze@itc.rwth-aachen.de //
72b8115b1Sprotze@itc.rwth-aachen.de // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
82b8115b1Sprotze@itc.rwth-aachen.de //
92b8115b1Sprotze@itc.rwth-aachen.de // See tools/archer/LICENSE.txt for details.
102b8115b1Sprotze@itc.rwth-aachen.de // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
112b8115b1Sprotze@itc.rwth-aachen.de //
122b8115b1Sprotze@itc.rwth-aachen.de //===----------------------------------------------------------------------===//
132b8115b1Sprotze@itc.rwth-aachen.de 
142b8115b1Sprotze@itc.rwth-aachen.de 
152b8115b1Sprotze@itc.rwth-aachen.de // RUN: %libarcher-compile-and-run | FileCheck %s
16*77ad98c8Sprotze@itc.rwth-aachen.de // REQUIRES: tsan
172b8115b1Sprotze@itc.rwth-aachen.de #include <omp.h>
182b8115b1Sprotze@itc.rwth-aachen.de #include <stdio.h>
192b8115b1Sprotze@itc.rwth-aachen.de 
202b8115b1Sprotze@itc.rwth-aachen.de #define NUM_THREADS 2
212b8115b1Sprotze@itc.rwth-aachen.de 
main(int argc,char * argv[])222b8115b1Sprotze@itc.rwth-aachen.de int main(int argc, char *argv[]) {
232b8115b1Sprotze@itc.rwth-aachen.de   int var = 0;
242b8115b1Sprotze@itc.rwth-aachen.de   int i;
252b8115b1Sprotze@itc.rwth-aachen.de 
262b8115b1Sprotze@itc.rwth-aachen.de #pragma omp parallel for ordered num_threads(NUM_THREADS) shared(var)
272b8115b1Sprotze@itc.rwth-aachen.de   for (i = 0; i < NUM_THREADS; i++) {
282b8115b1Sprotze@itc.rwth-aachen.de #pragma omp ordered
292b8115b1Sprotze@itc.rwth-aachen.de     { var++; }
302b8115b1Sprotze@itc.rwth-aachen.de   }
312b8115b1Sprotze@itc.rwth-aachen.de 
322b8115b1Sprotze@itc.rwth-aachen.de   fprintf(stderr, "DONE\n");
332b8115b1Sprotze@itc.rwth-aachen.de   int error = (var != 2);
342b8115b1Sprotze@itc.rwth-aachen.de   return error;
352b8115b1Sprotze@itc.rwth-aachen.de }
362b8115b1Sprotze@itc.rwth-aachen.de 
372b8115b1Sprotze@itc.rwth-aachen.de // CHECK-NOT: ThreadSanitizer: data race
382b8115b1Sprotze@itc.rwth-aachen.de // CHECK-NOT: ThreadSanitizer: reported
392b8115b1Sprotze@itc.rwth-aachen.de // CHECK: DONE
40