fix: use map(attach:/detach:) in OMP_ENTER/EXIT_DATA for correct Fortran pointer attachment

map(always,to/from:) for pointer components copies the host descriptor
(with host addresses) to device, leaving device struct pointers invalid.
OpenMP 5.1 map(attach:) correctly looks up the device address of the pointee
and updates the device struct pointer to reference device memory.
map(detach:) is the symmetric reverse.

This fixes CUDA_ERROR_ILLEGAL_ADDRESS (Phoenix gpu-omp) and
HSA_STATUS_ERROR_MEMORY_APERTURE_VIOLATION (Frontier AMD gpu-omp) caused by
x%cc/x%spacing etc. being dereferenced as host addresses inside GPU kernels.

Author: sbryngelson

src/common/include/omp_macros.fpp

@@ -293,7 +293,7 @@
 #:def OMP_ENTER_DATA(copyin=None, copyinReadOnly=None, create=None, attach=None, extraOmpArgs=None)
     #:set copyin_val = OMP_COPYIN_STR(copyin).strip('\n') + OMP_COPYIN_STR(copyinReadOnly).strip('\n')
     #:set create_val = OMP_CREATE_STR(create)
-    #:set attach_val = OMP_MAP_STR('always,to', attach)
+    #:set attach_val = OMP_MAP_STR('attach', attach)
     #:set extraOmpArgs_val = GEN_EXTRA_ARGS_STR(extraOmpArgs)
     #:set omp_clause_val = copyin_val.strip('\n') + create_val.strip('\n') + attach_val.strip('\n')
     #:set omp_directive = '!$omp target enter data ' + omp_clause_val + extraOmpArgs_val.strip('\n')
@@ -303,7 +303,7 @@
 #:def OMP_EXIT_DATA(copyout=None, delete=None, detach=None, extraOmpArgs=None)
     #:set copyout_val = OMP_COPYOUT_STR(copyout)
     #:set delete_val = OMP_DELETE_STR(delete)
-    #:set detach_val = OMP_MAP_STR('always,from', detach)
+    #:set detach_val = OMP_MAP_STR('detach', detach)
     #:set extraOmpArgs_val = GEN_EXTRA_ARGS_STR(extraOmpArgs)
     #:set clause_val = copyout_val.strip('\n') + delete_val.strip('\n') + detach_val.strip('\n')
     #:set omp_directive = '!$omp target exit data ' + clause_val + extraOmpArgs_val.strip('\n')