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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

/* { 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;
}