OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2010-04-13 Richard Guenther <rguenther@suse.de>
[pf3gnuchains/gcc-fork.git]
/
libgomp
/
testsuite
/
libgomp.c
/
omp-single-2.c
1
#include <omp.h>
2
3
extern void abort (void);
4
5
struct X
6
{
7
int a;
8
char b;
9
int c;
10
};
11
12
main()
13
{
14
int i = 0;
15
struct X x;
16
int bad = 0;
17
18
#pragma omp parallel private (i, x) shared (bad)
19
{
20
i = 5;
21
22
#pragma omp single copyprivate (i, x)
23
{
24
i++;
25
x.a = 23;
26
x.b = 42;
27
x.c = 26;
28
}
29
30
if (i != 6 || x.a != 23 || x.b != 42 || x.c != 26)
31
bad = 1;
32
}
33
34
if (bad)
35
abort ();
36
37
return 0;
38
}