1 // --------------------------------------------------
2 // Check 'to' and extends before
3 // --------------------------------------------------
4
5 // RUN: %libomptarget-compile-generic \
6 // RUN: -fopenmp-version=51 -DCLAUSE=to -DEXTENDS=BEFORE
7 // RUN: %libomptarget-run-fail-generic 2>&1 \
8 // RUN: | %fcheck-generic
9
10 // --------------------------------------------------
11 // Check 'from' and extends before
12 // --------------------------------------------------
13
14 // RUN: %libomptarget-compile-generic \
15 // RUN: -fopenmp-version=51 -DCLAUSE=from -DEXTENDS=BEFORE
16 // RUN: %libomptarget-run-fail-generic 2>&1 \
17 // RUN: | %fcheck-generic
18
19 // --------------------------------------------------
20 // Check 'to' and extends after
21 // --------------------------------------------------
22
23 // RUN: %libomptarget-compile-generic \
24 // RUN: -fopenmp-version=51 -DCLAUSE=to -DEXTENDS=AFTER
25 // RUN: %libomptarget-run-fail-generic 2>&1 \
26 // RUN: | %fcheck-generic
27
28 // --------------------------------------------------
29 // Check 'from' and extends after
30 // --------------------------------------------------
31
32 // RUN: %libomptarget-compile-generic \
33 // RUN: -fopenmp-version=51 -DCLAUSE=from -DEXTENDS=AFTER
34 // RUN: %libomptarget-run-fail-generic 2>&1 \
35 // RUN: | %fcheck-generic
36
37
38 // END.
39
40 #include <stdio.h>
41
42 #define BEFORE 0
43 #define AFTER 1
44
45 #if EXTENDS == BEFORE
46 # define SMALL 2:3
47 # define LARGE 0:5
48 #elif EXTENDS == AFTER
49 # define SMALL 0:3
50 # define LARGE 0:5
51 #else
52 # error EXTENDS undefined
53 #endif
54
main()55 int main() {
56 int arr[5];
57
58 // CHECK: addr=0x[[#%x,HOST_ADDR:]], size=[[#%u,SIZE:]]
59 fprintf(stderr, "addr=%p, size=%ld\n", arr, sizeof arr);
60
61 // CHECK-NOT: Libomptarget
62 #pragma omp target data map(alloc: arr[LARGE])
63 {
64 #pragma omp target update CLAUSE(present: arr[SMALL])
65 }
66
67 // CHECK: arr is present
68 fprintf(stderr, "arr is present\n");
69
70 // CHECK: Libomptarget message: device mapping required by 'present' motion modifier does not exist for host address 0x{{0*}}[[#HOST_ADDR]] ([[#SIZE]] bytes)
71 // CHECK: Libomptarget fatal error 1: failure of target construct while offloading is mandatory
72 #pragma omp target data map(alloc: arr[SMALL])
73 {
74 #pragma omp target update CLAUSE(present: arr[LARGE])
75 }
76
77 // CHECK-NOT: arr is present
78 fprintf(stderr, "arr is present\n");
79
80 return 0;
81 }
82