OSDN Git Service

r383@cf-ppc-macosx: monabuilder | 2008-12-23 16:04:56 +0900
[pf3gnuchains/pf3gnuchains3x.git] / gcc / testsuite / gcc.dg / graphite / block-4.c
1 /* { dg-options "-O2 -floop-block -fdump-tree-graphite-all" } */
2
3 #define N 24
4 #define M 1000
5
6 float A[1000][1000], B[1000][1000], C[1000][1000];
7
8 void test (void)
9 {
10   int i, j, k;
11
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];
17
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];
23 }
24
25 /* { dg-final { scan-tree-dump-times "Strip Mining is not profitable" 2 "graphite" } } */
26 /* { dg-final { cleanup-tree-dump "graphite" } } */