libgomp/testsuite/libgomp.oacc-c-c++-common/crash-1.c

   1 /* { dg-do link } */
   2
   3 /* For -O0, ICEd in nvptx backend due to unexpected frame size.  */
   4 #pragma acc routine worker
   5 void
   6 worker_matmul (int *c, int i)
   7 {
   8   int j;
   9
  10 #pragma acc loop
  11   for (j = 0; j < 4; j++)
  12     c[j] = j;
  13 }
  14
  15
  16 int
  17 main ()
  18 {
  19   int c[4];
  20
  21 #pragma acc parallel
  22   {
  23     worker_matmul (c, 0);
  24   }
  25
  26   return 0;
  27 }