source: CIVL/examples/omp/dataracebench-1.3.2/micro-benchmarks/original/DRB123-taskundeferred-orig-yes.c

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100755
File size: 868 bytes
Line 
1/*
2!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
3!!! Copyright (c) 2017-20, Lawrence Livermore National Security, LLC
4!!! and DataRaceBench project contributors. See the DataRaceBench/COPYRIGHT file for details.
5!!!
6!!! SPDX-License-Identifier: (BSD-3-Clause)
7!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!!!
8*/
9
10/*
11A single thread will spawn all the tasks. Add if(0) to avoid the data race, undeferring the tasks.
12
13Data Race pairs var@30:9 and var@30:9.
14*/
15
16#include <omp.h>
17#include <stdio.h>
18#include <unistd.h>
19
20int main(int argc, char* argv[])
21{
22 int var = 0;
23 int i;
24
25 #pragma omp parallel sections
26 {
27 for (i = 0; i < 10; i++) {
28 #pragma omp task shared(var)
29 {
30 var++;
31 }
32 }
33 }
34
35 if (var!=10) printf("%d\n",var);
36 return 0;
37}
Note: See TracBrowser for help on using the repository browser.