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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-require-effective-target vect_double } */`
2
3			`#include <stdarg.h>`
4			`#include "tree-vect.h"`
5
6			`#define N 32`
7
8			`__attribute__ ((noinline)) int`
9			`main1 ()`
10			`{`
11			`int i;`
12			`double db[N] = {0.4,3.5,6.6,9.4,12.5,15.6,18.4,21.5,24.6,27.4,30.5,33.6,36.4,39.5,42.6,45.4,0.5,3.6,6.4,9.5,12.6,15.4,18.5,21.6,24.4,27.5,30.6,33.4,36.5,39.6,42.4,45.5};`
13			`float fa[N];`
14
15			`/* double -> float */`
16			`for (i = 0; i < N; i++)`
17			`{`
18			`fa[i] = (float) db[i];`
19			`}`
20
21			`/* check results: */`
22			`for (i = 0; i < N; i++)`
23			`{`
24			`if (fa[i] != (float) db[i])`
25			`abort ();`
26			`}`
27
28			`return 0;`
29			`}`
30
31			`int`
32			`main (void)`
33			`{`
34			`check_vect ();`
35
36			`return main1 ();`
37			`}`
38
39			`/* { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { xfail spu--* } } } */`
40			`/* { dg-final { cleanup-tree-dump "vect" } } */`