diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-07-29 18:37:13 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-07-29 18:37:13 +0200 |
| commit | d8140b9ed3c0fed041aedaff3fa4a603984ca10f (patch) | |
| tree | 5c1c7909d60df14ee9a979602a3217b39a148d10 /gcc/fortran/dump-parse-tree.c | |
| parent | f6fe3bbf9f6c0b7249933e19b94560b6b26bf269 (diff) | |
| download | gcc-d8140b9ed3c0fed041aedaff3fa4a603984ca10f.zip gcc-d8140b9ed3c0fed041aedaff3fa4a603984ca10f.tar.gz gcc-d8140b9ed3c0fed041aedaff3fa4a603984ca10f.tar.bz2 | |
OpenMP: Handle order(concurrent) clause in gfortran
gcc/fortran/ChangeLog:
* dump-parse-tree.c (show_omp_clauses): Handle order(concurrent).
* gfortran.h (struct gfc_omp_clauses): Add order_concurrent.
* openmp.c (enum omp_mask1, OMP_DO_CLAUSES, OMP_SIMD_CLAUSES):
Add OMP_CLAUSE_ORDER.
* trans-openmp.c (gfc_trans_omp_clauses, gfc_split_omp_clauses):
Handle order(concurrent) clause.
gcc/testsuite/ChangeLog:
* gfortran.dg/gomp/order-3.f90: New test.
* gfortran.dg/gomp/order-4.f90: New test.
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 2a02bc8..71d0e7d 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1552,6 +1552,8 @@ show_omp_clauses (gfc_omp_clauses *omp_clauses) fputs (" SEQ", dumpfile); if (omp_clauses->independent) fputs (" INDEPENDENT", dumpfile); + if (omp_clauses->order_concurrent) + fputs (" ORDER(CONCURRENT)", dumpfile); if (omp_clauses->ordered) { if (omp_clauses->orderedc) |