[gcc/devel/omp/gcc-14] Add 'present' clause in gfc_omp_deep_map_kind_p

[Paul-Antoine Arras via Gcc-cvs]

https://gcc.gnu.org/g:2f920adb53b07339e7a4f6ff37026e080ffa723f

commit 2f920adb53b07339e7a4f6ff37026e080ffa723f
Author: Paul-Antoine Arras <par...@baylibre.com>
Date:   Tue May 21 14:02:22 2024 +0200

    Add 'present' clause in gfc_omp_deep_map_kind_p
    
    OG14 fixup for mainline commit 4ede915d5dde935a16df2c6640aee5ab22348d30
    "openmp: Add support for the 'present' modifier"

Diff:
---
 gcc/fortran/trans-openmp.cc | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index ad49422f80d..e06a16e20a9 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -2954,12 +2954,20 @@ gfc_omp_deep_map_kind_p (tree clause)
 
   switch (OMP_CLAUSE_MAP_KIND (clause))
     {
+    case GOMP_MAP_PRESENT_ALLOC:
+    case GOMP_MAP_PRESENT_TO:
+    case GOMP_MAP_PRESENT_TOFROM:
+    case GOMP_MAP_PRESENT_FROM:
+      return false;
     case GOMP_MAP_TO:
     case GOMP_MAP_FROM:
     case GOMP_MAP_TOFROM:
     case GOMP_MAP_ALWAYS_TO:
     case GOMP_MAP_ALWAYS_FROM:
     case GOMP_MAP_ALWAYS_TOFROM:
+    case GOMP_MAP_ALWAYS_PRESENT_TO:
+    case GOMP_MAP_ALWAYS_PRESENT_TOFROM:
+    case GOMP_MAP_ALWAYS_PRESENT_FROM:
     case GOMP_MAP_FIRSTPRIVATE:
     case GOMP_MAP_ALLOC:
       return true;