blob: 033d676b3b27e0dc3bcc1298b4a0697afc946a69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
// { dg-do run }
// { dg-set-target-env-var OMP_CANCELLATION "true" }
#include <omp.h>
#include "cancel-test.h"
int
main ()
{
#pragma omp parallel num_threads (32)
{
S a;
#pragma omp cancel parallel
if (omp_get_cancellation ())
abort ();
}
S::verify ();
}
|