103 lines
2.2 KiB
C
103 lines
2.2 KiB
C
// RUN: %libomptarget-compile-generic -fopenmp-version=51
|
|
// RUN: %libomptarget-run-generic 2>&1 \
|
|
// RUN: | %fcheck-generic
|
|
|
|
// UNSUPPORTED: amdgcn-amd-amdhsa
|
|
// UNSUPPORTED: amdgcn-amd-amdhsa-LTO
|
|
|
|
#include <omp.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#define N 1024
|
|
#define FROM 64
|
|
#define LENGTH 128
|
|
|
|
void foo() {
|
|
const int device_id = omp_get_default_device();
|
|
float *A;
|
|
A = (float *)omp_target_alloc((FROM + LENGTH) * sizeof(float), device_id);
|
|
|
|
float *A_dev = NULL;
|
|
#pragma omp target has_device_addr(A[FROM : LENGTH]) map(A_dev)
|
|
{ A_dev = A; }
|
|
// CHECK: Success
|
|
if (A_dev == NULL || A_dev != A)
|
|
fprintf(stderr, "Failure %p %p \n", A_dev, A);
|
|
else
|
|
fprintf(stderr, "Success\n");
|
|
}
|
|
|
|
void bar() {
|
|
short x[10];
|
|
short *xp = &x[0];
|
|
|
|
x[1] = 111;
|
|
#pragma omp target data map(tofrom : xp[0 : 2]) use_device_addr(xp[0 : 2])
|
|
#pragma omp target has_device_addr(xp[0 : 2])
|
|
{
|
|
xp[1] = 222;
|
|
// CHECK: 222
|
|
printf("%d %p\n", xp[1], &xp[1]);
|
|
}
|
|
// CHECK: 222
|
|
printf("%d %p\n", xp[1], &xp[1]);
|
|
}
|
|
|
|
void moo() {
|
|
short *b = malloc(sizeof(short));
|
|
b = b - 1;
|
|
|
|
b[1] = 111;
|
|
#pragma omp target data map(tofrom : b[1]) use_device_addr(b[1])
|
|
#pragma omp target has_device_addr(b[1])
|
|
{
|
|
b[1] = 222;
|
|
// CHECK: 222
|
|
printf("%hd %p %p %p\n", b[1], b, &b[1], &b);
|
|
}
|
|
// CHECK: 222
|
|
printf("%hd %p %p %p\n", b[1], b, &b[1], &b);
|
|
}
|
|
|
|
void zoo() {
|
|
short x[10];
|
|
short *(xp[10]);
|
|
xp[1] = &x[0];
|
|
short **xpp = &xp[0];
|
|
|
|
x[1] = 111;
|
|
#pragma omp target data map(tofrom : xpp[1][1]) use_device_addr(xpp[1][1])
|
|
#pragma omp target has_device_addr(xpp[1][1])
|
|
{
|
|
xpp[1][1] = 222;
|
|
// CHECK: 222
|
|
printf("%d %p %p\n", xpp[1][1], xpp[1], &xpp[1][1]);
|
|
}
|
|
// CHECK: 222
|
|
printf("%d %p %p\n", xpp[1][1], xpp[1], &xpp[1][1]);
|
|
}
|
|
void xoo() {
|
|
short a[10], b[10];
|
|
a[1] = 111;
|
|
b[1] = 111;
|
|
#pragma omp target data map(to : a[0 : 2], b[0 : 2]) use_device_addr(a, b)
|
|
#pragma omp target has_device_addr(a) has_device_addr(b[0])
|
|
{
|
|
a[1] = 222;
|
|
b[1] = 222;
|
|
// CHECK: 222 222
|
|
printf("%hd %hd %p %p %p\n", a[1], b[1], &a, b, &b);
|
|
}
|
|
// CHECK:111
|
|
printf("%hd %hd %p %p %p\n", a[1], b[1], &a, b, &b); // 111 111 p1d p2d p3d
|
|
}
|
|
int main() {
|
|
foo();
|
|
bar();
|
|
moo();
|
|
zoo();
|
|
xoo();
|
|
return 0;
|
|
}
|