diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-07-22 21:02:01 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-07-22 21:02:01 +0200 |
| commit | e55ba804d3b8de86a430a8a5553dfc1ad06daa74 (patch) | |
| tree | 02a4ad3afecb84dcddc114e1f2c91f8e03879d29 /gcc/fortran/dump-parse-tree.c | |
| parent | ae575662833d70cb7d74b9538096c7becc79af14 (diff) | |
| download | gcc-e55ba804d3b8de86a430a8a5553dfc1ad06daa74.zip gcc-e55ba804d3b8de86a430a8a5553dfc1ad06daa74.tar.gz gcc-e55ba804d3b8de86a430a8a5553dfc1ad06daa74.tar.bz2 | |
OpenMP: Support 'if (simd:/cancel:' in Fortran
gcc/fortran/ChangeLog:
* gfortran.h (enum gfc_omp_if_kind): Add OMP_IF_CANCEL and OMP_IF_SIMD.
* openmp.c (OMP_SIMD_CLAUSES): Add OMP_CLAUSE_IF.
(gfc_match_omp_clauses, resolve_omp_clauses): Handle 'if (simd/cancel:'.
* dump-parse-tree.c (show_omp_clauses): Likewise.
* trans-openmp.c (gfc_trans_omp_clauses, gfc_trans_omp_cancel,
(gfc_split_omp_clauses): Likewise.
gcc/testsuite/ChangeLog:
* gfortran.dg/gomp/cancel-2.f90: New test.
* gfortran.dg/gomp/cancel-3.f90: New test.
* gfortran.dg/gomp/if-1.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 f9a6bf4..2a02bc8 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1693,7 +1693,9 @@ show_omp_clauses (gfc_omp_clauses *omp_clauses) if (omp_clauses->if_exprs[i]) { static const char *ifs[] = { + "CANCEL", "PARALLEL", + "SIMD", "TASK", "TASKLOOP", "TARGET", |