diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-09-01 06:29:24 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-09-01 06:29:24 +0000 |
| commit | c20048d46bb243c642bb729187a31d2f11b088be (patch) | |
| tree | 81447609b23cce66916ca64fd11a6608c1a94b3b /gcc/fortran/trans-openmp.c | |
| parent | 582e44346897d0dcaffb5a83d536c3ed419562a1 (diff) | |
| parent | 78c1a94262ec93694397069a7281b1fe287a4a3a (diff) | |
| download | gcc-c20048d46bb243c642bb729187a31d2f11b088be.tar.gz | |
Merge trunk r144975 bis r184995 to branch
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/fortran-dev@239915 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index ebdd734f0b0..2d720c80a2a 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -3986,10 +3986,7 @@ gfc_trans_omp_parallel_workshare (gfc_code *code) code->loc); pushlevel (); stmt = gfc_trans_omp_workshare (code, &workshare_clauses); - if (TREE_CODE (stmt) != BIND_EXPR) - stmt = build3_v (BIND_EXPR, NULL, stmt, poplevel (1, 0)); - else - poplevel (0, 0); + stmt = build3_v (BIND_EXPR, NULL, stmt, poplevel (1, 0)); stmt = build2_loc (input_location, OMP_PARALLEL, void_type_node, stmt, omp_clauses); OMP_PARALLEL_COMBINED (stmt) = 1; |