libgomp/testsuite/libgomp.c++/cancel-sections-1.C

   1 // { dg-do run }
   2 // { dg-set-target-env-var OMP_CANCELLATION "true" }
   3
   4 #include <omp.h>
   5 #include "cancel-test.h"
   6
   7 int
   8 main ()
   9 {
  10   if (!omp_get_cancellation ())
  11     return 0;
  12   #pragma omp parallel num_threads (32)
  13   {
  14     S a;
  15     #pragma omp sections
  16       {
  17         {
  18           S b;
  19           #pragma omp cancel sections
  20           abort ();
  21         }
  22       #pragma omp section
  23         {
  24           S c;
  25           #pragma omp cancel sections
  26           abort ();
  27         }
  28       #pragma omp section
  29         {
  30           S d;
  31           #pragma omp cancel sections
  32           abort ();
  33         }
  34       #pragma omp section
  35         {
  36           S e;
  37           #pragma omp cancel sections
  38           abort ();
  39         }
  40       }
  41   }
  42   S::verify ();
  43 }