libgomp/testsuite/libgomp.c/cancel-sections-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   if (!omp_get_cancellation ())
  11     return 0;
  12   #pragma omp parallel num_threads (32)
  13   {
  14     #pragma omp sections
  15       {
  16         {
  17           #pragma omp cancel sections
  18           abort ();
  19         }
  20       #pragma omp section
  21         {
  22           #pragma omp cancel sections
  23           abort ();
  24         }
  25       #pragma omp section
  26         {
  27           #pragma omp cancel sections
  28           abort ();
  29         }
  30       #pragma omp section
  31         {
  32           #pragma omp cancel sections
  33           abort ();
  34         }
  35       }
  36   }
  37   return 0;
  38 }