TheRock/compiler/amd-llvm/openmp/libompd/cuda_examples/test_target_single.c

#include <stdio.h>

#pragma omp declare target
float mult(float u, float v) {
  return u * v;
}
#pragma omp end declare target

void vec_mult(int N)
{
  int i;
  float p[N], v1[N], v2[N];
  //init(v1, v2, N);
  #pragma omp target map(v1, v2, p)
  {
    #pragma omp parallel for
    for (i=0; i<N; i++)
    {
      p[i] = mult(v1[i], v2[i]);
    }
  }
//output(p, N);
}
int main() {
  printf("calling vec_mul...\n");
  vec_mult(64);
  printf("done\n");
  return 0;
}