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

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