PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / pr23625.c
blobaaeddb2886d25704b37e8739375569e4e300c0c2
1 /* Test case for PR23625 */
2 /* { dg-do compile } */
3 /* { dg-options "-O2 -ftree-vectorize -ftree-loop-linear" } */
5 typedef long INT32;
6 void find_best_colors ()
8 int ic0, ic1, ic2;
9 INT32 * bptr;
10 INT32 dist1;
11 INT32 dist2;
12 INT32 xx1;
13 for (ic0 = (1<<(5 -3))-1;ic0 >= 0;ic0--)
15 for (ic1 = (1<<(6 -3))-1;ic1 >= 0;ic1--)
17 dist2 = dist1;
18 for (ic2 = (1<<(5 -3))-1;ic2 >= 0;ic2--)
20 *bptr = dist2;
21 bptr++;
23 dist1 += xx1;