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

   1 /* { dg-do run } */
   2
   3 #include <openacc.h>
   4
   5 int
   6 main (int argc, char **argv)
   7 {
   8   acc_device_t devtype = acc_device_host;
   9
  10 #if ACC_DEVICE_TYPE_nvidia
  11   devtype = acc_device_nvidia;
  12
  13   if (acc_get_num_devices (devtype) == 0)
  14     return 0;
  15 #endif
  16
  17   acc_init (devtype);
  18
  19   acc_init (devtype);
  20
  21   return 0;
  22 }
  23
  24 /* { dg-shouldfail "libgomp: device already active" } */