Tests for target atomic with metadirective.

Cases/Composite/OpenMP_TargetAtomic/OpenMP_Atomic_Metadirective.f90

+program Atomic_Metadirective
+
+  use omp_lib
+  
+  implicit none
+  
+  real :: &
+    A
+    
+  !$OMP metadirective &
+  !$OMP   when ( implementation = { vendor (cray) } : atomic update )
+  A = A + 1
+  
+end program Atomic_Metadirective

Cases/Composite/OpenMP_TargetAtomic/OpenMP_TargetAtomic_Metadirective.f90

+program TargetAtomic_Metadirective
+
+  use omp_lib
+  implicit none
+  
+  real :: &
+    A
+  
+  !-- Conceptual test to use hint for atomic as needed 
+  
+  !$OMP target
+  
+  !$OMP metadirective &
+  !$OMP   when ( implementation = { vendor ("VVV") },  &
+  !$OMP          device = { arch ( "gfxZZZ" ) } &
+  !$OMP            : atomic update &
+  !$OMP                hint ( int ( Z'20', kind = omp_sync_hint_kind ) ), &
+  !$OMP   default ( atomic update )
+  A = A + 1
+  
+  !$OMP end target
+  
+end program TargetAtomic_Metadirective

Cases/Composite/OpenMP_TargetAtomic/OpenMP_TargetAtomic_Simple.f90

+program TargetAtomic_Simple
+
+  implicit none
+  
+  real :: &
+    A
+    
+  !$OMP target
+  !$OMP atomic update
+  A = A + 1
+  !$OMP end target
+  
+end program TargetAtomic_Simple