repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR target/64358
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.c++
/
pr34513.C
blob
e5ad3bcb44d43aa9c9e857d507bd441135a6e02f
1
// PR c++/34513
2
// { dg-do run }
3
4
#include <omp.h>
5
6
extern "C" void abort ();
7
8
static int errors = 0;
9
static int thrs = 4;
10
11
int
12
main ()
13
{
14
omp_set_dynamic (0);
15
16
#pragma omp parallel num_threads (thrs)
17
{
18
static int shrd = 0;
19
20
#pragma omp atomic
21
shrd += 1;
22
23
#pragma omp barrier
24
25
if (shrd != thrs)
26
#pragma omp atomic
27
errors += 1;
28
}
29
30
if (errors)
31
abort ();
32
}