forked from OSchip/llvm-project
34 lines
804 B
C
34 lines
804 B
C
// RUN: %libomptarget-compile-run-and-check-x86_64-pc-linux-gnu
|
|
// RUN: %libomptarget-compile-x86_64-pc-linux-gnu -DUNUSED -Wall -Werror
|
|
|
|
// only run for x86_64 host offloading:
|
|
// REQUIRES: x86_64-pc-linux-gnu
|
|
|
|
#include <omp.h>
|
|
#include <stdio.h>
|
|
|
|
int main() {
|
|
int errors = 0;
|
|
#ifdef UNUSED
|
|
// Test if it is OK to leave the variants unused in the header
|
|
#else // UNUSED
|
|
int host = omp_is_initial_device();
|
|
int device = 1;
|
|
#pragma omp target map(tofrom : device)
|
|
{ device = omp_is_initial_device(); }
|
|
if (!host) {
|
|
printf("omp_is_initial_device() returned false on host\n");
|
|
errors++;
|
|
}
|
|
if (device) {
|
|
printf("omp_is_initial_device() returned true on device\n");
|
|
errors++;
|
|
}
|
|
#endif // UNUSED
|
|
|
|
// CHECK: PASS
|
|
printf("%s\n", errors ? "FAIL" : "PASS");
|
|
|
|
return errors;
|
|
}
|