Retro68/gcc/libgomp/testsuite/libgomp.oacc-c-c++-common/acc-on-device-2.c
2017-04-10 13:32:00 +02:00

23 lines
347 B
C

/* 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;
}