| /* { dg-do compile } */ |
| /* { dg-additional-options "-fdump-tree-gimple" } */ |
| |
| void foo (void) |
| { |
| /* Basic test to ensure to,from,tofrom is ordered before alloc,release,delete clauses. */ |
| int a, b, c; |
| #pragma omp target enter data map(alloc:a) map(to:b) map(alloc:c) |
| #pragma omp target exit data map(from:a) map(release:b) map(from:c) |
| |
| #pragma omp target map(alloc:a) map(tofrom:b) map(alloc:c) |
| a = b = c = 1; |
| |
| #pragma omp target enter data map(to:a) map(alloc:b) map(to:c) |
| #pragma omp target exit data map(from:a) map(delete:b) map(from:c) |
| } |
| |
| /* { dg-final { scan-tree-dump "pragma omp target enter data map\\(to:.* map\\(alloc:.* map\\(alloc:.*" "gimple" } } */ |
| /* { dg-final { scan-tree-dump "pragma omp target exit data map\\(from:.* map\\(from:.* map\\(release:.*" "gimple" } } */ |
| |
| /* { dg-final { scan-tree-dump "pragma omp target num_teams.* map\\(tofrom:.* map\\(alloc:.* map\\(alloc:.*" "gimple" } } */ |
| |
| /* { dg-final { scan-tree-dump "pragma omp target enter data map\\(to:.* map\\(to:.* map\\(alloc:.*" "gimple" } } */ |
| /* { dg-final { scan-tree-dump "pragma omp target exit data map\\(from:.* map\\(from:.* map\\(delete:.*" "gimple" } } */ |
