1  #include <omp.h>
       2  #include <stdlib.h>
       3  
       4  struct S
       5  {
       6    int a, b;
       7  };
       8  typedef struct S S;
       9  
      10  int main (void)
      11  {
      12    int d = omp_get_default_device ();
      13    int id = omp_get_initial_device ();
      14  
      15    if (d < 0 || d >= omp_get_num_devices ())
      16      d = id;
      17  
      18    S s;
      19    #pragma omp target enter data map (alloc: s.a, s.b)
      20    #pragma omp target exit data map (release: s.b)
      21  
      22    /* OpenMP 5.0 structure element mapping rules describe that elements of same
      23       structure variable should allocate/deallocate in a uniform fashion, so
      24       "s.a" should be removed together by above 'exit data'.  */
      25    if (d != id && omp_target_is_present (&s.a, d))
      26      abort ();
      27  
      28    return 0;
      29  }