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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [vect-11.c] - Blame information for rev 816

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* { dg-require-effective-target vect_int } */`
2			`/* { dg-require-effective-target vect_int_mult } */`
3
4			`#include <stdarg.h>`
5			`#include "tree-vect.h"`
6
7			`#define N 16`
8
9			`int main1 ()`
10			`{`
11			`int i;`
12			`int ia[N];`
13			`int ic[N] = {0,3,6,9,12,15,18,21,24,27,30,33,36,39,42,45};`
14			`int ib[N] = {0,3,6,9,12,15,18,21,24,27,30,33,36,39,42,45};`
15
16			`/* Not vectorizable yet (integer mult). */`
17			`for (i = 0; i < N; i++)`
18			`{`
19			`ia[i] = ib[i] * ic[i];`
20			`}`
21
22			`/* check results: */`
23			`for (i = 0; i < N; i++)`
24			`{`
25			`if (ia[i] != ib[i] * ic[i])`
26			`abort ();`
27			`}`
28
29			`return 0;`
30			`}`
31
32			`int main (void)`
33			`{`
34			`check_vect ();`
35
36			`return main1 ();`
37			`}`
38
39			`/* { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" } } */`
40			`/* { dg-final { cleanup-tree-dump "vect" } } */`