From 4a9150d04a2a9b6f322d3deb65eaf5b4f614ed12 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Thu, 10 Oct 2019 08:48:14 +0000 Subject: [PATCH] [Fortran, OpenMP] Actually pass use_device_addr on to the middle end * trans-openmp.c (gfc_trans_omp_clauses): Actually pass use_device_addr on to the middle end. From-SVN: r276791 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-openmp.c | 3 +++ 2 files changed, 8 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 784704293b9..0577659778b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2019-10-10 Tobias Burnus + + * trans-openmp.c (gfc_trans_omp_clauses): Actually pass use_device_addr + on to the middle end. + 2019-10-08 Steven G. Kargl PR fortran/91801 diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index f83bab4850e..35c2f280fb6 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -1887,6 +1887,9 @@ gfc_trans_omp_clauses (stmtblock_t *block, gfc_omp_clauses *clauses, case OMP_LIST_USE_DEVICE_PTR: clause_code = OMP_CLAUSE_USE_DEVICE_PTR; goto add_clause; + case OMP_LIST_USE_DEVICE_ADDR: + clause_code = OMP_CLAUSE_USE_DEVICE_ADDR; + goto add_clause; case OMP_LIST_IS_DEVICE_PTR: clause_code = OMP_CLAUSE_IS_DEVICE_PTR; goto add_clause; -- 2.11.4.GIT