libgomp/testsuite/libgomp.c/cancel-for-1.c

   1 /* { dg-do run } */
   2 /* { dg-set-target-env-var OMP_CANCELLATION "true" } */
   3
   4 #include <stdlib.h>
   5 #include <omp.h>
   6
   7 int
   8 main ()
   9 {
  10   #pragma omp parallel num_threads (32)
  11   {
  12     int i;
  13     #pragma omp for
  14     for (i = 0; i < 1000; ++i)
  15       {
  16         #pragma omp cancel for
  17         if (omp_get_cancellation ())
  18           abort ();
  19       }
  20   }
  21   return 0;
  22 }