From: Tobias Burnus <tobias@codesourcery.com>
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: https://git.libre-soc.org/?a=commitdiff_plain;h=4a9150d04a2a9b6f322d3deb65eaf5b4f614ed12;p=gcc.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.

From-SVN: r276791
---

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  <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 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;