| /* { dg-do compile } */ | |
| /* { dg-options "-fopenmp -fdump-tree-gimple" } */ | |
| void | |
| foo () | |
| { | |
| int *x, *y; | |
| #pragma omp target data map(x, y) use_device_ptr(x, y) | |
| #pragma omp target is_device_ptr(x, y) | |
| { | |
| *x = 42; | |
| } | |
| } | |
| /* { dg-final { scan-tree-dump "is_device_ptr\\(x\\)" "gimple" } } */ | |
| /* { dg-final { scan-tree-dump-not "is_device_ptr\\(y\\)" "gimple" } } */ |