libgomp/testsuite/libgomp.oacc-c/lib-3.c

   1 /* { dg-do run } */
   2
   3 #include <openacc.h>
   4
   5 int
   6 main (int argc, char **argv)
   7 {
   8   acc_init (acc_device_host);
   9
  10   acc_shutdown (acc_device_not_host);
  11
  12   return 0;
  13 }
  14
  15 /* { dg-shouldfail "libgomp: device 4(4) is initialized" } */