2d739f13d4
We already have all the information to automatically map function pointers that have been declared as `indirect` declare target by the user. This is just enabling and testing the functionality by looking through the one level of indirection.
38 lines
882 B
C
38 lines
882 B
C
// RUN: %libomptarget-compile-generic -fopenmp-version=51
|
|
// RUN: %libomptarget-run-generic | %fcheck-generic
|
|
// RUN: %libomptarget-compileopt-generic -fopenmp-version=51
|
|
// RUN: %libomptarget-run-generic | %fcheck-generic
|
|
|
|
#include <stdio.h>
|
|
|
|
int square(int x) { return x * x; }
|
|
#pragma omp declare target indirect to(square)
|
|
|
|
typedef int (*fp_t)(int);
|
|
|
|
int main() {
|
|
int i = 17, r;
|
|
|
|
fp_t fp = □
|
|
// CHECK: host: &square =
|
|
printf("host: &square = %p\n", fp);
|
|
|
|
#pragma omp target map(from : fp)
|
|
fp = □
|
|
// CHECK: device: &square = [[DEV_FP:.*]]
|
|
printf("device: &square = %p\n", fp);
|
|
|
|
fp_t fp1 = square;
|
|
fp_t fp2 = 0;
|
|
#pragma omp target map(from : fp2)
|
|
fp2 = fp1;
|
|
// CHECK: device: fp2 = [[DEV_FP]]
|
|
printf("device: fp2 = %p\n", fp2);
|
|
|
|
#pragma omp target map(from : r)
|
|
{ r = fp1(i); }
|
|
|
|
// CHECK: 17*17 = 289
|
|
printf("%i*%i = %i\n", i, i, r);
|
|
}
|