From: burnus Date: Thu, 10 Oct 2019 08:48:14 +0000 (+0000) Subject: [Fortran, OpenMP] Actually pass use_device_addr on to the middle end X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1efdc4af140e28a84adb4429739aceb51b6ef282;p=thirdparty%2Fgcc.git [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 --- 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;