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

   1 extern void abort (void);
   2
   3 main()
   4 {
   5   int i = 0;
   6
   7   #pragma omp parallel shared (i)
   8     {
   9       #pragma omp single
  10         {
  11           i++;
  12         }
  13     }
  14
  15   if (i != 1)
  16     abort ();
  17
  18   return 0;
  19 }