xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.c/omp-single-3.c (revision be691f3bb6417f04a68938fadbcaee2d5795e764)
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