| /* { dg-do compile } */ |
| /* { dg-additional-options "-fdump-tree-original -fdump-tree-gimple" } */ |
| |
| /* Check that the right call to f is wrapped in a GOMP_DISPATCH internal function |
| before translation and that it is stripped during gimplification. */ |
| |
| int f(int); |
| void g(int *x) |
| { |
| #pragma omp dispatch |
| x[f(1)] = f(f(2)); |
| // ^ only this call to f is a dispatch call |
| } |
| |
| /* { dg-final { scan-tree-dump "\.GOMP_DISPATCH \\(f \\(f \\(2\\)\\)\\)" "original" } } */ |
| /* { dg-final { scan-tree-dump-times "\.GOMP_DISPATCH" 1 "original" } } */ |
| /* { dg-final { scan-tree-dump-not "\.GOMP_DISPATCH" "gimple" } } */ |
