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