diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 3 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f07af3b..2e4f8fb 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2006-05-17 Jakub Jelinek <jakub@redhat.com> + + PR middle-end/27415 + * trans-openmp.c (gfc_trans_omp_parallel_do, + gfc_trans_omp_parallel_sections, gfc_trans_omp_parallel_workshare): Set + OMP_PARALLEL_COMBINED flag. + 2006-05-16 H.J. Lu <hongjiu.lu@intel.com> PR driver/26885 diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index f33f1bd..b7c6f9e 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -1095,6 +1095,7 @@ gfc_trans_omp_parallel_do (gfc_code *code) else poplevel (0, 0, 0); stmt = build4_v (OMP_PARALLEL, stmt, omp_clauses, NULL, NULL); + OMP_PARALLEL_COMBINED (stmt) = 1; gfc_add_expr_to_block (&block, stmt); return gfc_finish_block (&block); } @@ -1119,6 +1120,7 @@ gfc_trans_omp_parallel_sections (gfc_code *code) else poplevel (0, 0, 0); stmt = build4_v (OMP_PARALLEL, stmt, omp_clauses, NULL, NULL); + OMP_PARALLEL_COMBINED (stmt) = 1; gfc_add_expr_to_block (&block, stmt); return gfc_finish_block (&block); } @@ -1143,6 +1145,7 @@ gfc_trans_omp_parallel_workshare (gfc_code *code) else poplevel (0, 0, 0); stmt = build4_v (OMP_PARALLEL, stmt, omp_clauses, NULL, NULL); + OMP_PARALLEL_COMBINED (stmt) = 1; gfc_add_expr_to_block (&block, stmt); return gfc_finish_block (&block); } |