offload/test/mapping/multiple_deletes_within_one_struct.c

// RUN: %libomptarget-compile-run-and-check-generic

#include <omp.h>
#include <stdio.h>

// This test ensures that when mapping `s.x` and `s.p[0:10], the
// storage of `s.p` and `s.dummy` is not unnecessarily allocated.

// Secondly, after deleting s1.x and s1.p[0], they are no longer
// present on the device.

int g[10];

typedef struct {
  int x;
  int dummy[10000];
  int *p;
} S;

S s1;

void print_status(void *p, const char *name) {
  int present = omp_target_is_present(p, omp_get_default_device());
  printf("%s is %spresent\n", name, present ? "" : "not ");
}

int main() {
  s1.p = (int *)&g;

#pragma omp target enter data map(alloc : s1.x, s1.p[0 : 10])
  printf("After mapping\n");
  print_status(&s1.x, "x");         // CHECK: x is present
  print_status(&s1.dummy, "dummy"); // CHECK: dummy is not present
  print_status(&s1.p, "p");         // CHECK: p is not present
  print_status(&s1.p[0], "p[0]");   // CHECK: p[0] is present
  printf("\n");

#pragma omp target exit data map(delete : s1.x) map(delete : s1.p[0 : 10])
  printf("After deleting\n");
  print_status(&s1.x, "x");         // CHECK: x is not present
  print_status(&s1.dummy, "dummy"); // CHECK: dummy is not present
  print_status(&s1.p, "p");         // CHECK: p is not present
  print_status(&s1.p[0], "p[0]");   // CHECK: p[0] is not present
}