diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2023-01-27 11:32:19 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2023-01-27 11:33:46 +0100 |
| commit | 2325c8920bbc99edcc9fffaa79577c528df41eb8 (patch) | |
| tree | c3a8d2d90e6f1b4aa998ce5b5401da5783ee157f /gcc/fortran/trans-openmp.cc | |
| parent | 16f30680f403891556da2ad6329fcef9dc9b47db (diff) | |
| download | gcc-2325c8920bbc99edcc9fffaa79577c528df41eb8.zip gcc-2325c8920bbc99edcc9fffaa79577c528df41eb8.tar.gz gcc-2325c8920bbc99edcc9fffaa79577c528df41eb8.tar.bz2 | |
OpenMP/Fortran: Fix has_device_addr clause splitting [PR108558]
gcc/fortran/ChangeLog:
PR fortran/108558
* trans-openmp.cc (gfc_split_omp_clauses): Handle has_device_addr.
libgomp/ChangeLog:
PR fortran/108558
* testsuite/libgomp.fortran/has_device_addr.f90: New test.
Diffstat (limited to 'gcc/fortran/trans-openmp.cc')
| -rw-r--r-- | gcc/fortran/trans-openmp.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc index 87213de..5283d0c 100644 --- a/gcc/fortran/trans-openmp.cc +++ b/gcc/fortran/trans-openmp.cc @@ -6205,6 +6205,8 @@ gfc_split_omp_clauses (gfc_code *code, = code->ext.omp_clauses->lists[OMP_LIST_MAP]; 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; clausesa[GFC_OMP_SPLIT_TARGET].thread_limit |