repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Rebase.
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.c
/
cancel-parallel-1.c
blob
614eb50f0d6ef234fbbd3b0f140a283d0feb5b27
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
#pragma omp cancel parallel
13
if
(
omp_get_cancellation
())
14
abort
();
15
}
16
return
0
;
17
}