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  }