xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.c/omp-single-3.c (revision f2da64fbbbf1b03f09f390ab01267c93dfd77c4c)
1 extern void abort (void);
2 
3 void
4 single (int a, int b)
5 {
6   #pragma omp single copyprivate(a) copyprivate(b)
7     {
8       a = b = 5;
9     }
10 
11   if (a != b)
12     abort ();
13 }
14 
15 int main()
16 {
17   #pragma omp parallel
18     single (1, 2);
19 
20   return 0;
21 }
22