blob: 5dc5ad51bfb30b732d0470f5ba185357942addd3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
/* { dg-do compile } */
/* { dg-options "-fopenmp -fdump-tree-gimple" } */
/* { dg-additional-options "-std=c++98" { target c++ } } */
int bar (int, int);
void baz (int, int *);
#pragma omp declare target enter (baz)
void
foo (int x, int *p)
{
#pragma omp target map (iterator (i=0:4), to: p[bar (x, i)])
baz (x, p);
}
/* { dg-final { scan-tree-dump "firstprivate\\\(x\\\)" "gimple" } } */
/* { dg-final { scan-tree-dump-times "bar \\\(x, i\\\)" 2 "gimple" } } */
/* { dg-final { scan-tree-dump-times "map\\\(iterator\\\(int i=0:4:1, loop_label=" 2 "gimple" } } */
|
