94 lines · c
1// RUN: %libomptarget-compile-run-and-check-generic2 3// REQUIRES: libc4//5// FIXME: https://github.com/llvm/llvm-project/issues/1612656// XFAIL: gpu7 8#include <omp.h>9#include <stdio.h>10 11typedef struct {12 short x;13 int *p;14 long y;15} S;16 17S s[10], *ps;18 19void f1() {20 ps = &s[0];21 s[0].x = 111;22 s[1].x = 222;23 s[2].x = 333;24 s[3].x = 444;25 26#pragma omp target enter data map(to : s)27#pragma omp target enter data map(to : ps, ps->x)28 29 S **ps_mappedptr = (S **)omp_get_mapped_ptr(&ps, omp_get_default_device());30 short *s0_mappedptr =31 (short *)omp_get_mapped_ptr(&s[0].x, omp_get_default_device());32 short *s0_hostaddr = &s[0].x;33 34 printf("ps_mappedptr %s null\n", ps_mappedptr == (S **)NULL ? "==" : "!=");35 printf("s0_mappedptr %s null\n", s0_mappedptr == (short *)NULL ? "==" : "!=");36 37// CHECK: ps_mappedptr != null38// CHECK: s0_mappedptr != null39 40// ps is predetermined firstprivate, so its address will be different from41// the mapped address for this construct. So, any changes to p within the42// region will not be visible after the construct.43#pragma omp target map(ps->x) map(to : ps_mappedptr, s0_mappedptr, s0_hostaddr)44 {45 printf("%d %d %d %d\n", ps->x, ps_mappedptr == &ps, s0_mappedptr == &ps->x,46 s0_hostaddr == &ps->x);47 // CHECK: 111 0 1 048 ps++;49 }50 51// For the remaining constructs, ps is not firstprivate, so its address will52// be the same as the mapped address, and changes to ps will be visible to any53// subsequent regions.54#pragma omp target map(to : ps->x, ps) \55 map(to : ps_mappedptr, s0_mappedptr, s0_hostaddr)56 {57 printf("%d %d %d %d\n", ps->x, ps_mappedptr == &ps, s0_mappedptr == &ps->x,58 s0_hostaddr == &ps->x);59 // EXPECTED: 111 1 1 060 // CHECK: 111 0 1 061 ps++;62 }63 64#pragma omp target map(to : ps, ps->x) \65 map(to : ps_mappedptr, s0_mappedptr, s0_hostaddr)66 {67 printf("%d %d %d %d\n", ps->x, ps_mappedptr == &ps,68 s0_mappedptr == &ps[-1].x, s0_hostaddr == &ps[-1].x);69 // EXPECTED: 222 1 1 070 // CHECK: 111 0 0 071 ps++;72 }73 74#pragma omp target map(present, alloc : ps) \75 map(to : ps_mappedptr, s0_mappedptr, s0_hostaddr)76 {77 printf("%d %d %d %d\n", ps->x, ps_mappedptr == &ps,78 s0_mappedptr == &ps[-2].x, s0_hostaddr == &ps[-2].x);79 // EXPECTED: 333 1 1 080 // CHECK: 111 1 0 081 }82 83 // The following map(from:ps) should not bring back ps, because ps is an84 // attached pointer. So, it should still point to the same original85 // location, &s[0], on host.86#pragma omp target exit data map(always, from : ps)87 printf("%d %d\n", ps->x, ps == &s[0]);88 // CHECK: 111 189 90#pragma omp target exit data map(delete : ps, s)91}92 93int main() { f1(); }94