[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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 784704293b926d0ff4ac0296a87efe6fd14bc55d..0577659778beda212f3b0c7cffa4bedccb090db3 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2019-10-10  Tobias Burnus  <tobias@codesourcery.com>
+
+       * trans-openmp.c (gfc_trans_omp_clauses): Actually pass use_device_addr
+       on to the middle end.
+
 2019-10-08  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/91801

diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c
index f83bab4850ef30f1fff6613a279dfe2e8d984d9a..35c2f280fb6ad82194a9b712c922462677948bdf 100644 (file)
--- 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;