blob: efc9c13691588440480dc1d0863c48dc6796005b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
/* { dg-do compile } */
/* { dg-additional-options "-fdump-tree-gimple" } */
// "omp declare mapper" support -- check expansion in gimple.
#include <stdlib.h>
struct S {
int *ptr;
int size;
};
#define N 64
#pragma omp declare mapper (struct S w) map(w.size, w.ptr, w.ptr[:w.size])
#pragma omp declare mapper (foo:struct S w) map(to:w.size, w.ptr) \
map(w.ptr[:w.size])
int main (int argc, char *argv[])
{
struct S s;
s.ptr = (int *) malloc (sizeof (int) * N);
s.size = N;
#pragma omp declare mapper (bar:struct S w) map(w.size, w.ptr, w.ptr[:w.size])
#pragma omp target
{
for (int i = 0; i < N; i++)
s.ptr[i]++;
}
#pragma omp target map(tofrom: s)
{
for (int i = 0; i < N; i++)
s.ptr[i]++;
}
#pragma omp target map(mapper(default), tofrom: s)
{
for (int i = 0; i < N; i++)
s.ptr[i]++;
}
#pragma omp target map(mapper(foo), alloc: s)
{
for (int i = 0; i < N; i++)
s.ptr[i]++;
}
#pragma omp target map(mapper(bar), tofrom: s)
{
for (int i = 0; i < N; i++)
s.ptr[i]++;
}
return 0;
}
/* { dg-final { scan-tree-dump-times {map\(struct:s \[len: 2\]\) map\(tofrom:s\.ptr \[len: [0-9]+\]\) map\(tofrom:s\.size \[len: [0-9]+\]\) map\(tofrom:\*_[0-9]+ \[len: _[0-9]+\]\) map\(attach:s\.ptr \[bias: 0\]\)} 4 "gimple" { target c++ } } } */
/* { dg-final { scan-tree-dump-times {map\(struct:s \[len: 2\]\) map\(to:s\.ptr \[len: [0-9]+\]\) map\(to:s\.size \[len: [0-9]+\]\) map\(alloc:\*_[0-9]+ \[len: _[0-9]+\]\) map\(attach:s\.ptr \[bias: 0\]\)} 1 "gimple" { target c++ } } } */
|
