From 1efdc4af140e28a84adb4429739aceb51b6ef282 Mon Sep 17 00:00:00 2001 From: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@276791 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 784704293b92..0577659778be 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 f83bab4850ef..35c2f280fb6a 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.47.2