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