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

23 lines
347 B
C
Raw Normal View History

2017-04-10 11:32:00 +00:00
/* 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;
}