diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-02-15 17:36:43 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-02-15 17:36:43 +0000 |
| commit | a5268989afcfe7c737d3f7b6b81d6f2e1bf054a5 (patch) | |
| tree | 259f85cd6ed7d67f133847ea1613a7e509e0bffb /gcc/tree-nested.c | |
| parent | decf9b6193f3df93a1a52daf3f0cba3d56e9a24d (diff) | |
| download | gcc-a5268989afcfe7c737d3f7b6b81d6f2e1bf054a5.tar.gz | |
PR middle-end/35130
* tree-nested.c (convert_call_expr): Put FRAME.* vars into
OMP_CLAUSE_SHARED rather than OMP_CLAUSE_FIRSTPRIVATE clause.
* testsuite/libgomp.fortran/pr35130.f90: New test.
* testsuite/libgomp.c/pr35130.c: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132349 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/tree-nested.c')
| -rw-r--r-- | gcc/tree-nested.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/tree-nested.c b/gcc/tree-nested.c index 08f3eb1b491..a20e320ad2e 100644 --- a/gcc/tree-nested.c +++ b/gcc/tree-nested.c @@ -1739,7 +1739,8 @@ convert_call_expr (tree *tp, int *walk_subtrees, void *data) break; if (c == NULL) { - c = build_omp_clause (OMP_CLAUSE_FIRSTPRIVATE); + c = build_omp_clause (i ? OMP_CLAUSE_FIRSTPRIVATE + : OMP_CLAUSE_SHARED); OMP_CLAUSE_DECL (c) = decl; OMP_CLAUSE_CHAIN (c) = OMP_PARALLEL_CLAUSES (t); OMP_PARALLEL_CLAUSES (t) = c; |