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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [vect-10-big-array.c] - Blame information for rev 689

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do compile } */`
2			`/* { dg-require-effective-target vect_int } */`
3			`#include <stdlib.h>`
4
5			`#define N 128`
6
7			`short a[N];`
8			`short d[N];`
9
10			`volatile int y = 0;`
11
12			`int foo ()`
13			`{`
14			`int i;`
15			`short b[N];`
16			`short c[N];`
17			`for (i = 0; i < N/2; i++)`
18			`{`
19			`b[i] = i*3;`
20			`c[i] = i;`
21
22			`/* Avoid vectorization. */`
23			`if (y)`
24			`abort ();`
25			`}`
26
27			`/* Strided access pattern. */`
28			`for (i = 0; i < N/2; i++)`
29			`{`
30			`a[i] = b[2i+1] c[2i+1] - b[2i] * c[2*i];`
31			`d[i] = b[2i] c[2i+1] + b[2i+1] * c[2*i];`
32			`}`
33
34			`return 0;`
35			`}`
36
37			`/* { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { xfail { ! vect_strided2 } } } } */`
38			`/* { dg-final { cleanup-tree-dump "vect" } } */`