Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/cancel-sections-1.c @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-do run } */ /* { dg-set-target-env-var OMP_CANCELLATION "true" } */ #include <stdlib.h> #include <omp.h> int main () { if (!omp_get_cancellation ()) return 0; #pragma omp parallel num_threads (32) { #pragma omp sections { { #pragma omp cancel sections abort (); } #pragma omp section { #pragma omp cancel sections abort (); } #pragma omp section { #pragma omp cancel sections abort (); } #pragma omp section { #pragma omp cancel sections abort (); } } } return 0; }