diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2019-10-02 10:57:54 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2019-10-02 12:57:54 +0200 |
| commit | ef4add8e543091083b1a30350b653968e7c58ab2 (patch) | |
| tree | 025615ae48c75d5713717f7c8b914b2c628cbc4b /gcc/fortran/dump-parse-tree.c | |
| parent | fc1a202ca60def4894f2deeda8ae184527ee897e (diff) | |
| download | gcc-ef4add8e543091083b1a30350b653968e7c58ab2.zip gcc-ef4add8e543091083b1a30350b653968e7c58ab2.tar.gz gcc-ef4add8e543091083b1a30350b653968e7c58ab2.tar.bz2 | |
Support OpenMP's use_device_addr in Fortran
gcc/fortran/
* dump-parse-tree.c (show_omp_clauses): Handle OMP_LIST_USE_DEVICE_ADDR.
* gfortran.h (enum): Add OMP_LIST_USE_DEVICE_ADDR.
* openmp.c (omp_mask1): Likewise.
(gfc_match_omp_clauses): Match 'use_device_addr'.
(OMP_TARGET_DATA_CLAUSES): Add OMP_LIST_USE_DEVICE_ADDR.
(resolve_omp_clauses): Add it; add is_device_ptr checks.
gcc/testsuite/
* gfortran.dg/gomp/is_device_ptr-1.f90: New.
From-SVN: r276449
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 513f211..9d7b26f 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1507,6 +1507,7 @@ show_omp_clauses (gfc_omp_clauses *omp_clauses) 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_USE_DEVICE_ADDR: type = "USE_DEVICE_ADDR"; break; default: gcc_unreachable (); } |