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