Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/gomp/pr59467.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
/* PR libgomp/59467 */ int v; void foo (void) { int x = 0, y = 0; #pragma omp parallel { int z; #pragma omp single copyprivate (x) /* { dg-error "is not threadprivate or private in outer context" } */ { #pragma omp atomic write x = 6; } #pragma omp atomic read z = x; #pragma omp atomic y += z; } #pragma omp parallel { int z; #pragma omp single copyprivate (v) /* { dg-error "is not threadprivate or private in outer context" } */ { #pragma omp atomic write v = 6; } #pragma omp atomic read z = v; #pragma omp atomic y += z; } #pragma omp parallel private (x) { int z; #pragma omp single copyprivate (x) { #pragma omp atomic write x = 6; } #pragma omp atomic read z = x; #pragma omp atomic y += z; } x = 0; #pragma omp parallel reduction (+:x) { #pragma omp single copyprivate (x) { #pragma omp atomic write x = 6; } #pragma omp atomic y += x; } #pragma omp single copyprivate (x) { x = 7; } #pragma omp single copyprivate (v) /* { dg-error "is not threadprivate or private in outer context" } */ { #pragma omp atomic write v = 6; } }