diff options
| author | Cesar Philippidis <cesar@codesourcery.com> | 2018-09-20 11:42:57 -0700 |
|---|---|---|
| committer | Cesar Philippidis <cesar@gcc.gnu.org> | 2018-09-20 11:42:57 -0700 |
| commit | aecbc4ff0ddc57d74196434bc9e69edb3fe8237a (patch) | |
| tree | bf50e8654c442047e694f709aa7af9b99eeee34a /gcc/fortran/dump-parse-tree.c | |
| parent | fbcf65f914b7851549e4140d440a20951255da24 (diff) | |
| download | gcc-aecbc4ff0ddc57d74196434bc9e69edb3fe8237a.zip gcc-aecbc4ff0ddc57d74196434bc9e69edb3fe8237a.tar.gz gcc-aecbc4ff0ddc57d74196434bc9e69edb3fe8237a.tar.bz2 | |
[OpenACC] handle missing OMP_LIST_ clauses in fortran's parse tree debugger
gcc/fortran/
* dump-parse-tree.c (show_omp_clauses): Add missing omp list_types
and reorder the switch cases to match the enum in gfortran.h.
From-SVN: r264446
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 2a28fa3..f1be5a6 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1384,21 +1384,26 @@ show_omp_clauses (gfc_omp_clauses *omp_clauses) const char *type = NULL; switch (list_type) { - case OMP_LIST_USE_DEVICE: type = "USE_DEVICE"; break; - case OMP_LIST_DEVICE_RESIDENT: type = "USE_DEVICE"; break; - case OMP_LIST_CACHE: type = ""; break; case OMP_LIST_PRIVATE: type = "PRIVATE"; break; case OMP_LIST_FIRSTPRIVATE: type = "FIRSTPRIVATE"; break; case OMP_LIST_LASTPRIVATE: type = "LASTPRIVATE"; break; + case OMP_LIST_COPYPRIVATE: type = "COPYPRIVATE"; break; case OMP_LIST_SHARED: type = "SHARED"; break; case OMP_LIST_COPYIN: type = "COPYIN"; break; case OMP_LIST_UNIFORM: type = "UNIFORM"; break; case OMP_LIST_ALIGNED: type = "ALIGNED"; break; case OMP_LIST_LINEAR: type = "LINEAR"; break; + case OMP_LIST_DEPEND: type = "DEPEND"; break; + case OMP_LIST_MAP: type = "MAP"; break; + case OMP_LIST_TO: type = "TO"; break; + case OMP_LIST_FROM: type = "FROM"; break; case OMP_LIST_REDUCTION: type = "REDUCTION"; break; + case OMP_LIST_DEVICE_RESIDENT: type = "DEVICE_RESIDENT"; break; + case OMP_LIST_LINK: type = "LINK"; break; + case OMP_LIST_USE_DEVICE: type = "USE_DEVICE"; break; + case OMP_LIST_CACHE: type = "CACHE"; break; case OMP_LIST_IS_DEVICE_PTR: type = "IS_DEVICE_PTR"; break; case OMP_LIST_USE_DEVICE_PTR: type = "USE_DEVICE_PTR"; break; - case OMP_LIST_DEPEND: type = "DEPEND"; break; default: gcc_unreachable (); } |