PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / scop-18.c
blob4c2a8cdf64417bae10291c5b972e1a12c751c0fa
1 /* { dg-require-effective-target size32plus } */
3 #define N 24
4 #define M 1000
6 float A[1000][1000], B[1000][1000], C[1000][1000];
8 void test (void)
10 int i, j, k;
12 /* These loops contain too few iterations for being strip-mined by 64. */
13 for (i = 0; i < 24; i++)
14 for (j = 0; j < 24; j++)
15 for (k = 0; k < 24; k++)
16 A[i][j] = B[i][k] * C[k][j];
18 /* These loops should still be strip mined. */
19 for (i = 0; i < 1000; i++)
20 for (j = 0; j < 1000; j++)
21 for (k = 0; k < 1000; k++)
22 A[i][j] = B[i][k] * C[k][j];
25 /* { dg-final { scan-tree-dump-times "number of SCoPs: 2" 1 "graphite"} } */
26 /* { dg-final { cleanup-tree-dump "graphite" } } */