diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-09-20 12:13:31 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-09-20 12:13:31 +0200 |
| commit | 0de4184baca19cdd4ebc2d8aa2d538330cae51ee (patch) | |
| tree | ecc54fa767818f38c668f288e38bfaf62fa1c5c5 /gcc/fortran/dump-parse-tree.c | |
| parent | 24f99147b9264f8f7d9cfb2fa6bd431edfa252d2 (diff) | |
| download | gcc-0de4184baca19cdd4ebc2d8aa2d538330cae51ee.zip gcc-0de4184baca19cdd4ebc2d8aa2d538330cae51ee.tar.gz gcc-0de4184baca19cdd4ebc2d8aa2d538330cae51ee.tar.bz2 | |
Fortran/OpenMP: unconstrained/reproducible ordered modifier
gcc/fortran/ChangeLog:
* gfortran.h (gfc_omp_clauses): Add order_unconstrained.
* dump-parse-tree.c (show_omp_clauses): Dump it.
* openmp.c (gfc_match_omp_clauses): Match unconstrained/reproducible
modifiers to ordered(concurrent).
(OMP_DISTRIBUTE_CLAUSES): Accept ordered clause.
(resolve_omp_clauses): Reject ordered + order on same directive.
* trans-openmp.c (gfc_trans_omp_clauses, gfc_split_omp_clauses): Pass
on unconstrained modifier of ordered(concurrent).
gcc/testsuite/ChangeLog:
* gfortran.dg/gomp/order-5.f90: New test.
* gfortran.dg/gomp/order-6.f90: New test.
* gfortran.dg/gomp/order-7.f90: New test.
* gfortran.dg/gomp/order-8.f90: New test.
* gfortran.dg/gomp/order-9.f90: New test.
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index a1df47c..28eb09e 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1630,7 +1630,12 @@ show_omp_clauses (gfc_omp_clauses *omp_clauses) if (omp_clauses->independent) fputs (" INDEPENDENT", dumpfile); if (omp_clauses->order_concurrent) - fputs (" ORDER(CONCURRENT)", dumpfile); + { + fputs (" ORDER(", dumpfile); + if (omp_clauses->order_unconstrained) + fputs ("UNCONSTRAINED:", dumpfile); + fputs ("CONCURRENT)", dumpfile); + } if (omp_clauses->ordered) { if (omp_clauses->orderedc) |