libgomp/testsuite/libgomp.c/omp-single-3.c

   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 }