1*24f836e8SJoachim Protze // RUN: %libomptarget-compilexx-run-and-check-generic
22467df6eSGeorge Rokos 
32467df6eSGeorge Rokos #include <stdio.h>
42467df6eSGeorge Rokos #include <omp.h>
52467df6eSGeorge Rokos 
main(void)62467df6eSGeorge Rokos int main(void) {
72467df6eSGeorge Rokos   int isHost = 0;
82467df6eSGeorge Rokos 
97ec26367SGeorge Rokos #pragma omp target map(from: isHost)
102467df6eSGeorge Rokos   { isHost = omp_is_initial_device(); }
112467df6eSGeorge Rokos 
122467df6eSGeorge Rokos   if (isHost < 0) {
132467df6eSGeorge Rokos     printf("Runtime error, isHost=%d\n", isHost);
142467df6eSGeorge Rokos   }
152467df6eSGeorge Rokos 
162467df6eSGeorge Rokos   // CHECK: Target region executed on the device
172467df6eSGeorge Rokos   printf("Target region executed on the %s\n", isHost ? "host" : "device");
182467df6eSGeorge Rokos 
192467df6eSGeorge Rokos   return isHost;
202467df6eSGeorge Rokos }
21