1  /* This test verifies that the present data clauses to acc enter data
       2     don't cause duplicate mapping failures at runtime.  */
       3  
       4  /* { dg-do run } */
       5  
       6  #include <stdlib.h>
       7  
       8  int
       9  main (void)
      10  {
      11    int a;
      12  
      13  #pragma acc enter data copyin (a)
      14  #pragma acc enter data pcopyin (a)
      15  #pragma acc enter data pcreate (a)
      16  #pragma acc exit data delete (a)
      17  
      18  #pragma acc enter data create (a)
      19  #pragma acc enter data pcreate (a)
      20  #pragma acc exit data delete (a)
      21  
      22    return 0;
      23  }