libgomp/testsuite/libgomp.c-c++-common/pause-1.c

   1 #include <omp.h>
   2 #include <stdlib.h>
   3
   4 int a[64];
   5
   6 int
   7 main ()
   8 {
   9   int i;
  10   #pragma omp parallel for
  11   for (i = 0; i < 64; i++)
  12     a[i] = i;
  13   omp_pause_resource (omp_pause_soft, omp_get_initial_device ());
  14   #pragma omp parallel for
  15   for (i = 0; i < 64; i++)
  16     a[i] += i;
  17   omp_pause_resource_all (omp_pause_hard);
  18   #pragma omp parallel for
  19   for (i = 0; i < 64; i++)
  20     if (a[i] != 2 * i)
  21       abort ();
  22   return 0;
  23 }