PR libfortran/64770 Segfault when trying to open existing file with status="new".

[official-gcc.git] / gcc / testsuite / gcc.dg / gomp / pr58809.c

/* PR middle-end/58809 */
/* { dg-do compile } */
/* { dg-options "-fopenmp -O" } */

int i;
#pragma omp threadprivate (i)

void foo()
{
  _Complex int j;
#pragma omp parallel copyin (i) reduction (&&:j)
  ;
}