2015-08-28 17:33:40 +02:00

16 lines
225 B
C

/* { dg-do run } */
#include <openacc.h>
int
main (int argc, char **argv)
{
acc_init (acc_device_host);
acc_shutdown (acc_device_not_host);
return 0;
}
/* { dg-shouldfail "libgomp: device 4(4) is initialized" } */