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
* doc/invoke.texi (AVR Options): Document __AVR_ARCH__.
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.c++
/
single-2.C
blob
c2dd228568dce187e88fbd3b3bfde0442539ecef
1
extern "C" void abort (void);
2
3
struct X
4
{
5
int a;
6
char b;
7
int c;
8
};
9
10
main()
11
{
12
int i = 0;
13
struct X x;
14
int bad = 0;
15
16
#pragma omp parallel private (i, x) shared (bad)
17
{
18
i = 5;
19
20
#pragma omp single copyprivate (i, x)
21
{
22
i++;
23
x.a = 23;
24
x.b = 42;
25
x.c = 26;
26
}
27
28
if (i != 6 || x.a != 23 || x.b != 42 || x.c != 26)
29
bad = 1;
30
}
31
32
if (bad)
33
abort ();
34
35
return 0;
36
}