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