1*330d8983SJohannes Doerfert // RUN: %libomptarget-compile-generic -fopenmp-version=51
2*330d8983SJohannes Doerfert // RUN: %libomptarget-run-fail-generic 2>&1 \
3*330d8983SJohannes Doerfert // RUN: | %fcheck-generic
4*330d8983SJohannes Doerfert
5*330d8983SJohannes Doerfert // The host memory layout for the following program looks like this:
6*330d8983SJohannes Doerfert //
7*330d8983SJohannes Doerfert // | 4 bytes | 4 bytes | 8 bytes |
8*330d8983SJohannes Doerfert // | s.x | s.y | s.z |
9*330d8983SJohannes Doerfert // `-----------------------------'
10*330d8983SJohannes Doerfert //
11*330d8983SJohannes Doerfert // s is always at least 8-byte aligned in host memory due to s.z, so
12*330d8983SJohannes Doerfert // libomptarget's device padding for map(s.y,s.z) always maps to host memory
13*330d8983SJohannes Doerfert // that includes s.x. At one time, s.x appeared to be mapped as a result, but
14*330d8983SJohannes Doerfert // libomptarget has since been fixed not to consider device padding as mapped to
15*330d8983SJohannes Doerfert // host memory.
16*330d8983SJohannes Doerfert
17*330d8983SJohannes Doerfert #include <omp.h>
18*330d8983SJohannes Doerfert #include <stdio.h>
19*330d8983SJohannes Doerfert
main()20*330d8983SJohannes Doerfert int main() {
21*330d8983SJohannes Doerfert struct S { int x; int y; double z; } s = {1, 2, 3};
22*330d8983SJohannes Doerfert
23*330d8983SJohannes Doerfert // CHECK: &s.x = 0x[[#%x,HOST_ADDR:]], size = [[#%u,SIZE:]]
24*330d8983SJohannes Doerfert fprintf(stderr, "&s = %p\n", &s);
25*330d8983SJohannes Doerfert fprintf(stderr, "&s.x = %p, size = %ld\n", &s.x, sizeof s.x);
26*330d8983SJohannes Doerfert fprintf(stderr, "&s.y = %p\n", &s.y);
27*330d8983SJohannes Doerfert fprintf(stderr, "&s.z = %p\n", &s.z);
28*330d8983SJohannes Doerfert
29*330d8983SJohannes Doerfert // CHECK: s.x is present: 0
30*330d8983SJohannes Doerfert // CHECK: s.x = 1{{$}}
31*330d8983SJohannes Doerfert #pragma omp target enter data map(alloc: s.y, s.z)
32*330d8983SJohannes Doerfert int dev = omp_get_default_device();
33*330d8983SJohannes Doerfert fprintf(stderr, "s.x is present: %d\n", omp_target_is_present(&s.x, dev));
34*330d8983SJohannes Doerfert #pragma omp target update from(s.x) // should have no effect
35*330d8983SJohannes Doerfert fprintf(stderr, "s.x = %d\n", s.x);
36*330d8983SJohannes Doerfert
37*330d8983SJohannes Doerfert // CHECK: omptarget message: device mapping required by 'present' map type modifier does not exist for host address 0x{{0*}}[[#HOST_ADDR]] ([[#SIZE]] bytes)
38*330d8983SJohannes Doerfert // CHECK: omptarget error: Call to getTargetPointer returned null pointer ('present' map type modifier).
39*330d8983SJohannes Doerfert // CHECK: omptarget fatal error 1: failure of target construct while offloading is mandatory
40*330d8983SJohannes Doerfert #pragma omp target enter data map(present, alloc: s.x)
41*330d8983SJohannes Doerfert
42*330d8983SJohannes Doerfert return 0;
43*330d8983SJohannes Doerfert }
44