source: CIVL/mods/dev.civl.com/examples/omp/dataracebench-1.3.2/micro-benchmarks/DRB162-nolocksimd-orig-gpu-no.c@ cb4d4f4

main test-branch
Last change on this file since cb4d4f4 was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

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

  • Property mode set to 100755
File size: 978 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/*
11Reduction clause at line 27:39 will ensure there is no data race in var@31:7. No Dadta Race.
12*/
13
14#include <stdio.h>
15#define N 20
16#define C 8
17
18int main(){
19 int var[C];
20
21 for(int i=0; i<C; i++){
22 var[i] = 0;
23 }
24
25 #pragma omp target map(tofrom:var) device(0)
26 #pragma omp teams num_teams(1) thread_limit(1048)
27 #pragma omp distribute parallel for reduction(+:var)
28 for (int i=0; i<N; i++){
29 #pragma omp simd
30 for(int i=0; i<C; i++){
31 var[i]++;
32 }
33 }
34
35 for(int i=0; i<C; i++){
36 if(var[i]!=N) printf("%d\n ",var[i]);
37 }
38
39 return 0;
40}
Note: See TracBrowser for help on using the repository browser.