PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / pr34017.c
blobee279b7c8df897bb7632be5323aea9ddd28588f5
1 /* { dg-do compile } */
2 /* { dg-options "-O2 -ftree-loop-linear" } */
4 extern int s;
6 void
7 foo (int *x, int y, int z)
9 int m, n;
10 int o;
11 int p = x[0];
12 o = s;
13 for (m = 0; m < s; m++)
14 for (n = 0; n < s; n++)
16 if (x[n] != p)
17 continue;
18 if (m > z)
19 z = m;
20 if (n < o)
21 o = n;
23 for (m = y; m <= z; m++)