diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2017-09-01 13:25:39 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2017-09-01 13:25:39 +0200 |
| commit | d2e05fcbdafc26ab0c2babf2b3065d177f71305b (patch) | |
| tree | cb173e95c3a681699e55211508d33bb13bbe064a /gcc/fortran/trans-openmp.c | |
| parent | 39baa1d35e4f4157616abf6b1d8e0507e69cbfdc (diff) | |
| download | gcc-d2e05fcbdafc26ab0c2babf2b3065d177f71305b.zip gcc-d2e05fcbdafc26ab0c2babf2b3065d177f71305b.tar.gz gcc-d2e05fcbdafc26ab0c2babf2b3065d177f71305b.tar.bz2 | |
re PR c/81887 (pragma omp ordered simd ignored under -fopenmp-simd)
PR c/81887
c-family/
* c-pragma.c (omp_pragmas): Move "ordered" entry from here to ...
(omp_pragmas_simd): ... here.
* c-omp.c (c_finish_omp_ordered): If clauses isn't simd clause alone,
create new clauses list containing just simd clause.
c/
* c-parser.c (c_parser_omp_ordered): Handle -fopenmp-simd.
cp/
* parser.c (cp_parser_omp_ordered): Handle -fopenmp-simd.
fortran/
* parse.c (decode_omp_directive): Use matchs instead of matcho for
end ordered and ordered directives, except for ordered depend. For
-fopenmp-simd and ordered depend, reject the stmt.
* trans-openmp.c (gfc_trans_omp_ordered): For -fopenmp-simd ignore
threads clause and if simd clause isn't present, just translate the
body.
testsuite/
* c-c++-common/gomp/pr81887.c: New test.
* gfortran.dg/gomp/pr81887.f90: New test.
From-SVN: r251585
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index 1d254c6..00c02a75 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -3925,6 +3925,12 @@ gfc_trans_omp_master (gfc_code *code) static tree gfc_trans_omp_ordered (gfc_code *code) { + if (!flag_openmp) + { + if (!code->ext.omp_clauses->simd) + return gfc_trans_code (code->block ? code->block->next : NULL); + code->ext.omp_clauses->threads = 0; + } tree omp_clauses = gfc_trans_omp_clauses (NULL, code->ext.omp_clauses, code->loc); return build2_loc (input_location, OMP_ORDERED, void_type_node, |