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

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

// { dg-do compile }

void foo()
{
  #pragma omp critical
    {
      return; // { dg-error "invalid branch to/from OpenMP structured block" }
    }
}