libgomp/testsuite/libgomp.c/pr66714.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

/* { dg-do "compile" } */
/* { dg-additional-options "--param ggc-min-expand=0" } */
/* { dg-additional-options "--param ggc-min-heapsize=0" } */
/* { dg-additional-options "-g" } */

/* Minimized from on target-2.c.  */

void
fn3 (int x)
{
  double b[3 * x];
  int i;
#pragma omp target
#pragma omp parallel for
  for (i = 0; i < x; i++)
    b[i] += 1;
}