diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-04-19 21:50:16 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-04-19 21:50:16 +0000 |
| commit | c46df3b1575310324704ea842a5721501907ece7 (patch) | |
| tree | cc054f1e30f29e5e180bacf780fd733c950e6c6a /gcc/tree-nested.c | |
| parent | ce2646e87ec2e1f02f3dc1601f6899136d370cba (diff) | |
| download | gcc-c46df3b1575310324704ea842a5721501907ece7.tar.gz | |
PR middle-end/43337
* tree-nested.c (convert_nonlocal_omp_clauses): OMP_CLAUSE_PRIVATE
with non-local decl doesn't need chain.
* gfortran.dg/gomp/pr43337.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@158527 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/tree-nested.c')
| -rw-r--r-- | gcc/tree-nested.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/tree-nested.c b/gcc/tree-nested.c index fb95088b648..a3aa6c4c384 100644 --- a/gcc/tree-nested.c +++ b/gcc/tree-nested.c @@ -1,5 +1,5 @@ /* Nested function decomposition for GIMPLE. - Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 + Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. This file is part of GCC. @@ -1088,7 +1088,8 @@ convert_nonlocal_omp_clauses (tree *pclauses, struct walk_stmt_info *wi) { bitmap_set_bit (new_suppress, DECL_UID (decl)); OMP_CLAUSE_DECL (clause) = get_nonlocal_debug_decl (info, decl); - need_chain = true; + if (OMP_CLAUSE_CODE (clause) != OMP_CLAUSE_PRIVATE) + need_chain = true; } break; |