openmp/libomptarget/test/mapping/present/target_update_array_extension.c

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