1  /* Test dynamic unmapping of separate structure members.  */
       2  
       3  /* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */
       4  
       5  #include <assert.h>
       6  #include <openacc.h>
       7  
       8  struct s
       9  {
      10    char a;
      11    char b;
      12  };
      13  
      14  int main ()
      15  {
      16    struct s s;
      17  
      18  #pragma acc enter data create(s.a, s.b)
      19  
      20    assert (acc_is_present (&s.a, sizeof s.a));
      21    assert (acc_is_present (&s.b, sizeof s.b));
      22  
      23  #pragma acc exit data delete(s.a)
      24  #pragma acc exit data delete(s.b)
      25  
      26    assert (!acc_is_present (&s.a, sizeof s.a));
      27    assert (!acc_is_present (&s.b, sizeof s.b));
      28  
      29    return 0;
      30  }
      31