diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2007-06-21 14:11:00 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2007-06-21 14:11:00 +0200 |
| commit | 64964499f48e337bf90d0e9d75fc44741b133194 (patch) | |
| tree | c5c2af76013fd82cf833725a5732c73bb1bd9903 /gcc/gimplify.c | |
| parent | d9eb5318b600dc6aec71b231f38fbb16b100359d (diff) | |
| download | gcc-64964499f48e337bf90d0e9d75fc44741b133194.zip gcc-64964499f48e337bf90d0e9d75fc44741b133194.tar.gz gcc-64964499f48e337bf90d0e9d75fc44741b133194.tar.bz2 | |
re PR middle-end/32362 (ICE: in lookup_decl_in_outer_ctx, at omp-low.c:1508)
PR middle-end/32362
* omp-low.c (lookup_decl_in_outer_ctx): Don't ICE if t is NULL,
but decl is a global var, instead return decl.
* gimplify.c (gimplify_adjust_omp_clauses_1): Add shared clauses
even for is_global_var decls, if they are private in some outer
context.
* testsuite/libgomp.c/pr32362-1.c: New test.
* testsuite/libgomp.c/pr32362-2.c: New test.
* testsuite/libgomp.c/pr32362-3.c: New test.
From-SVN: r125917
Diffstat (limited to 'gcc/gimplify.c')
| -rw-r--r-- | gcc/gimplify.c | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/gcc/gimplify.c b/gcc/gimplify.c index 01ccaf0..c93bb44 100644 --- a/gcc/gimplify.c +++ b/gcc/gimplify.c @@ -4882,7 +4882,20 @@ gimplify_adjust_omp_clauses_1 (splay_tree_node n, void *data) else if (flags & GOVD_SHARED) { if (is_global_var (decl)) - return 0; + { + struct gimplify_omp_ctx *ctx = gimplify_omp_ctxp->outer_context; + while (ctx != NULL) + { + splay_tree_node on + = splay_tree_lookup (ctx->variables, (splay_tree_key) decl); + if (on && (on->value & (GOVD_FIRSTPRIVATE | GOVD_LASTPRIVATE + | GOVD_PRIVATE | GOVD_REDUCTION)) != 0) + break; + ctx = ctx->outer_context; + } + if (ctx == NULL) + return 0; + } code = OMP_CLAUSE_SHARED; } else if (flags & GOVD_PRIVATE) |