PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / gomp / pr30494.c
blob6a042ce69746fbf65192cf2ef575725a6357484a
1 /* PR middle-end/30494 */
2 /* { dg-do compile } */
4 int
5 foo (int n)
7 int i;
8 #pragma omp for
9 for (i = 0; i < 6; i++)
11 int v[n], w[n * 3 + i];
12 v[0] = 1;
13 w[0] = 2;
15 return 0;
18 int
19 bar (int n)
21 int i;
22 #pragma parallel omp for
23 for (i = 0; i < 6; i++)
25 int v[n], w[n * 3 + i];
26 v[0] = 1;
27 w[0] = 2;
29 return 0;