PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / pr38446.c
blobb7b346cd98bc7f05117994f5e30a61c21e9cd29e
1 /* { dg-options "-O2 -fgraphite-identity" } */
3 void copy_data()
5 int ****source;
6 int ****dest;
8 int i, j, k, l;
9 for (i = 0; i < 10; i++)
10 for (k = 0; k < 2; k++)
11 for (l = 0; l < 65; l++)
12 source[i][j][k][l] = dest[i][j][k][l];