1extern void abort (void);
2
3void
4single (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
15int main()
16{
17  #pragma omp parallel
18    single (1, 2);
19
20  return 0;
21}
22