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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-require-effective-target vect_int } */`
2
3			`#include <stdarg.h>`
4			`#include <stdlib.h>`
5			`#include "tree-vect.h"`
6
7			`#define N 128`
8
9			`short res[N];`
10			`short a[N];`
11
12			`int`
13			`main1 ()`
14			`{`
15			`int i;`
16
17			`for (i = 0; i < N/4; i+=4)`
18			`{`
19			`res[i] = a[i] >> 8;`
20			`res[i+1] = a[i+1] >> 8;`
21			`res[i+2] = a[i+2] >> 8;`
22			`res[i+3] = a[i+3] >> 8;`
23			`}`
24			`}`
25
26			`int`
27			`main ()`
28			`{`
29			`int i;`
30
31			`for (i = 0; i < N; i++)`
32			`a[i] = i;`
33
34			`main1 ();`
35
36			`for (i = 0; i < N; i++)`
37			`if (res[i] != a[i] >> 8)`
38			`abort ();`
39
40			`return 0;`
41			`}`
42
43			`/* { dg-final { cleanup-tree-dump "vect" } } */`