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

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

static int bork;

void bar(void);

void foobar (void)
{
#pragma omp parallel
  {
#pragma omp for lastprivate(bork)
    for (bork = 0; bork < 100; bork++) {
        bar();
    }
  }
}