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