URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [block-7.c] - Blame information for rev 338

Line No.	Rev	Author	Line
1	298	jeremybenn	`/* { dg-require-effective-target size32plus } */`
2
3			`#define DEBUG 0`
4			`#if DEBUG`
5			`#include <stdio.h>`
6			`#endif`
7
8			`#define N 200`
9
10			`int A[N][N], B[N][N], C[N][N];`
11
12			`static void __attribute__((noinline))`
13			`matmult (void)`
14			`{`
15			`int i, j, k;`
16
17			`for (i = 0; i < N; i++)`
18			`for (j = 0; j < N; j++)`
19			`{`
20			`A[i][j] = 0;`
21			`for (k = 0; k < N; k++)`
22			`A[i][j] += B[i][k] * C[k][j];`
23			`}`
24			`}`
25
26			`extern void abort ();`
27
28			`int`
29			`main (void)`
30			`{`
31			`int i, j, res = 0;`
32
33			`for (i = 0; i < N; i++)`
34			`for (j = 0; j < N; j++)`
35			`{`
36			`B[i][j] = j;`
37			`C[i][j] = i;`
38			`}`
39
40			`matmult ();`
41
42			`for (i = 0; i < N; i++)`
43			`res += A[i][i];`
44
45			`#if DEBUG`
46			`fprintf (stderr, "res = %d \n", res);`
47			`#endif`
48
49			`if (res != 529340000)`
50			`abort ();`
51
52			`return 0;`
53			`}`
54
55			`/* { dg-final { scan-tree-dump-times "will be loop blocked" 1 "graphite" { xfail --* } } } */`
56			`/* { dg-final { cleanup-tree-dump "graphite" } } */`