libgomp/testsuite/libgomp.oacc-c-c++-common/parallel-dims.c

   1 /* { dg-do run { target openacc_nvidia_accel_selected } } */
   2
   3 /* Worker and vector size checks.  Picked an outrageously large
   4    value. */
   5
   6 int main ()
   7 {
   8   int dummy[10];
   9
  10 #pragma acc parallel num_workers (2<<20) /* { dg-error "using num_workers" } */
  11   {
  12 #pragma acc loop worker
  13     for (int  i = 0; i < 10; i++)
  14       dummy[i] = i;
  15   }
  16
  17 #pragma acc parallel vector_length (2<<20) /* { dg-error "using vector_length" } */
  18   {
  19 #pragma acc loop vector
  20     for (int  i = 0; i < 10; i++)
  21       dummy[i] = i;
  22   }
  23
  24   return 0;
  25 }