24 lines
346 B
C
24 lines
346 B
C
/* { dg-additional-options "-O0" } */
|
|
|
|
#include <openacc.h>
|
|
|
|
/* acc_on_device might not be folded at -O0, but it should work. */
|
|
|
|
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;
|
|
}
|