diff options
| author | Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> | 2019-11-21 16:14:21 +0000 |
|---|---|---|
| committer | Rainer Orth <ro@gcc.gnu.org> | 2019-11-21 16:14:21 +0000 |
| commit | b8e724465b5e1e6c479503f219cd725caaa8e781 (patch) | |
| tree | 80ea08df40416098c9c352c30eea51cf708c21ee /libgomp/testsuite/libgomp.c/task-5.c | |
| parent | 523cfd52a29d496a5c0445e5307e9ffc05242b20 (diff) | |
| download | gcc-b8e724465b5e1e6c479503f219cd725caaa8e781.zip gcc-b8e724465b5e1e6c479503f219cd725caaa8e781.tar.gz gcc-b8e724465b5e1e6c479503f219cd725caaa8e781.tar.bz2 | |
Fix failures on Solaris with -fno-common default
gcc/testsuite:
* gcc.c-torture/execute/20030913-1.c: Rename glob to g.
* gcc.c-torture/execute/960218-1.c: Rename glob to gl.
* gcc.c-torture/execute/complex-6.c: Rename err to e.
* gcc.dg/torture/ssa-pta-fn-1.c: Rename glob to g.
libgomp:
* testsuite/libgomp.c/pr39591-1.c: Rename err to e.
* testsuite/libgomp.c/pr39591-2.c: Likewise.
* testsuite/libgomp.c/pr39591-3.c: Likewise.
* testsuite/libgomp.c/private-1.c: Likewise.
* testsuite/libgomp.c/task-1.c: Likewise.
* testsuite/libgomp.c/task-5.c: Renamed err to serr.
From-SVN: r278571
Diffstat (limited to 'libgomp/testsuite/libgomp.c/task-5.c')
| -rw-r--r-- | libgomp/testsuite/libgomp.c/task-5.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/libgomp/testsuite/libgomp.c/task-5.c b/libgomp/testsuite/libgomp.c/task-5.c index b152371..bf44ddd 100644 --- a/libgomp/testsuite/libgomp.c/task-5.c +++ b/libgomp/testsuite/libgomp.c/task-5.c @@ -3,42 +3,42 @@ #include <omp.h> #include <stdlib.h> -int err; +int serr; int main () { int e; -#pragma omp parallel shared(err) +#pragma omp parallel shared(serr) { if (omp_in_final ()) #pragma omp atomic write - err = 1; - #pragma omp task if (0) shared(err) + serr = 1; + #pragma omp task if (0) shared(serr) { if (omp_in_final ()) #pragma omp atomic write - err = 1; - #pragma omp task if (0) shared(err) + serr = 1; + #pragma omp task if (0) shared(serr) if (omp_in_final ()) #pragma omp atomic write - err = 1; + serr = 1; } - #pragma omp task final (1) shared(err) + #pragma omp task final (1) shared(serr) { if (!omp_in_final ()) #pragma omp atomic write - err = 1; + serr = 1; #pragma omp taskyield #pragma omp taskwait - #pragma omp task shared(err) + #pragma omp task shared(serr) if (!omp_in_final ()) #pragma omp atomic write - err = 1; + serr = 1; } } #pragma omp atomic read - e = err; + e = serr; if (e) abort (); return 0; |