diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2008-06-27 21:45:14 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2008-06-27 21:45:14 +0200 |
| commit | ca2b131143a3195e603493aadd0a0b4a18ad737f (patch) | |
| tree | 8a25e70be23ac06cb0b9b579a0923434c229535c /gcc/gimplify.c | |
| parent | b357f682db35f4431e3011e7486a0ac865686e3e (diff) | |
| download | gcc-ca2b131143a3195e603493aadd0a0b4a18ad737f.zip gcc-ca2b131143a3195e603493aadd0a0b4a18ad737f.tar.gz gcc-ca2b131143a3195e603493aadd0a0b4a18ad737f.tar.bz2 | |
gimplify.c (omp_is_private): Don't return true if decl is not already private on #pragma omp for or #pragma...
* gimplify.c (omp_is_private): Don't return true if decl
is not already private on #pragma omp for or #pragma omp parallel for.
* gcc.dg/gomp/pr27388-3.c: Adjust dg-final.
* testsuite/libgomp.c/loop-10.c: New test.
* libgomp.c/loop-3.c (main): Add lastprivate clause.
* libgomp.c++/loop-6.C (main): Likewise.
From-SVN: r137199
Diffstat (limited to 'gcc/gimplify.c')
| -rw-r--r-- | gcc/gimplify.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/gimplify.c b/gcc/gimplify.c index 799ccbe..c3af34b 100644 --- a/gcc/gimplify.c +++ b/gcc/gimplify.c @@ -5060,15 +5060,16 @@ omp_is_private (struct gimplify_omp_ctx *ctx, tree decl) error ("iteration variable %qs should not be reduction", IDENTIFIER_POINTER (DECL_NAME (decl))); } - return true; + return (ctx == gimplify_omp_ctxp + || (ctx->region_type == ORT_COMBINED_PARALLEL + && gimplify_omp_ctxp->outer_context == ctx)); } if (ctx->region_type != ORT_WORKSHARE) return false; else if (ctx->outer_context) return omp_is_private (ctx->outer_context, decl); - else - return !is_global_var (decl); + return false; } /* Return true if DECL is private within a parallel region |