xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.c/omp-single-3.c (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210)
1 extern void abort (void);
2 
3 void
single(int a,int b)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 
main()15 int main()
16 {
17   #pragma omp parallel
18     single (1, 2);
19 
20   return 0;
21 }
22