libgomp/testsuite/libgomp.oacc-c-c++-common/acc-on-device-2.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

/* Test the acc_on_device library function. */
/* { dg-additional-options "-fno-builtin-acc_on_device" } */

#include <openacc.h>

int main ()
{
  int dev;
  
#pragma acc parallel copyout (dev)
  {
    dev = acc_on_device (acc_device_not_host);
  }

  int expect = 1;
  
#if  ACC_DEVICE_TYPE_host
  expect = 0;
#endif
  
  return dev != expect;
}