[Bug fortran/108558] OpenMP/Fortran 'has_device_addr' clause getting lost?

[burnus at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108558

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Last reconfirmed|                            |2023-01-26
     Ever confirmed|0                           |1
             Status|UNCONFIRMED                 |NEW

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
I bet that this is a problem of 'gfc_split_omp_clauses':

--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -6352,4 +6352,6 @@ gfc_split_omp_clauses (gfc_code *code,
          clausesa[GFC_OMP_SPLIT_TARGET].lists[OMP_LIST_IS_DEVICE_PTR]
            = code->ext.omp_clauses->lists[OMP_LIST_IS_DEVICE_PTR];
+         clausesa[GFC_OMP_SPLIT_TARGET].lists[OMP_LIST_HAS_DEVICE_ADDR]
+           = code->ext.omp_clauses->lists[OMP_LIST_HAS_DEVICE_ADDR];
          clausesa[GFC_OMP_SPLIT_TARGET].device
            = code->ext.omp_clauses->device;