/* { dg-do link } */

/* For -O0, ICEd in nvptx backend due to unexpected frame size.  */
#pragma acc routine worker
void
worker_matmul (int *c, int i)
{
  int j;

#pragma acc loop
  for (j = 0; j < 4; j++)
    c[j] = j;
}


int
main ()
{
  int c[4];

#pragma acc parallel 
  {
    worker_matmul (c, 0);
  }
  
  return 0;
}