Mercurial > hg > CbC > CbC_gcc

annotate libgomp/testsuite/libgomp.c/cancel-for-1.c @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-do run } */
kono
parents:
diff changeset
2 /* { dg-set-target-env-var OMP_CANCELLATION "true" } */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 #include <stdlib.h>
kono
parents:
diff changeset
5 #include <omp.h>
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 int
kono
parents:
diff changeset
8 main ()
kono
parents:
diff changeset
9 {
kono
parents:
diff changeset
10 #pragma omp parallel num_threads (32)
kono
parents:
diff changeset
11 {
kono
parents:
diff changeset
12 int i;
kono
parents:
diff changeset
13 #pragma omp for
kono
parents:
diff changeset
14 for (i = 0; i < 1000; ++i)
kono
parents:
diff changeset
15 {
kono
parents:
diff changeset
16 #pragma omp cancel for
kono
parents:
diff changeset
17 if (omp_get_cancellation ())
kono
parents:
diff changeset
18 abort ();
kono
parents:
diff changeset
19 }
kono
parents:
diff changeset
20 }
kono
parents:
diff changeset
21 return 0;
kono
parents:
diff changeset
22 }