| /* This test verifies that the present data clauses to acc enter data | |
| don't cause duplicate mapping failures at runtime. */ | |
| /* { dg-do run } */ | |
| #include <stdlib.h> | |
| int | |
| main (void) | |
| { | |
| int a; | |
| #pragma acc enter data copyin (a) | |
| #pragma acc enter data pcopyin (a) | |
| #pragma acc enter data pcreate (a) | |
| #pragma acc exit data delete (a) | |
| #pragma acc enter data create (a) | |
| #pragma acc enter data pcreate (a) | |
| #pragma acc exit data delete (a) | |
| return 0; | |
| } |