blob: 00eb48b2a45f5cfcf59a9c1743379bf53e9e9481 (
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
62
63
64
|
/* { dg-do run } */
#include <string.h>
#include <stdlib.h>
#include <assert.h>
#define N 64
typedef struct {
int *arr;
int size;
} B;
#pragma omp declare mapper (mapB : B myb) map(to: myb.size, myb.arr) \
map(tofrom: myb.arr[0:myb.size])
// While GCC handles more, only default is ...
#pragma omp declare mapper (default : B myb) map(to: myb.size, myb.arr) \
map(tofrom: myb.arr[0:myb.size])
struct A {
int *arr1;
B *arr2;
int arr3[N];
};
int
main (int argc, char *argv[])
{
struct A var;
memset (&var, 0, sizeof var);
var.arr1 = (int *) calloc (N, sizeof (int));
var.arr2 = (B *) malloc (sizeof (B));
var.arr2->arr = (int *) calloc (N, sizeof (float));
var.arr2->size = N;
{
// ... permitted here:
#pragma omp declare mapper (struct A x) map(to: x.arr1, x.arr2) \
map(tofrom: x.arr1[0:N]) \
map(mapper(default), tofrom: x.arr2[0:1])
#pragma omp target
{
for (int i = 0; i < N; i++)
{
var.arr1[i]++;
var.arr2->arr[i]++;
}
}
}
for (int i = 0; i < N; i++)
{
assert (var.arr1[i] == 1);
assert (var.arr2->arr[i] == 1);
assert (var.arr3[i] == 0);
}
free (var.arr1);
free (var.arr2->arr);
free (var.arr2);
return 0;
}
|
