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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [i386/] [sse2-lrint-vec.c] - Blame information for rev 691

Line No.	Rev	Author	Line
1	691	jeremybenn	`/* { dg-do run } */`
2			`/* { dg-options "-O2 -ffast-math -ftree-vectorize -msse2" } */`
3			`/* { dg-require-effective-target sse2 } */`
4
5			`#ifndef CHECK_H`
6			`#define CHECK_H "sse2-check.h"`
7			`#endif`
8
9			`#ifndef TEST`
10			`#define TEST sse2_test`
11			`#endif`
12
13			`#include CHECK_H`
14
15			`extern long lrint (double);`
16
17			`#define N 32`
18
19			`double a[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};`
20			`long r[N];`
21
22			`static void`
23			`TEST (void)`
24			`{`
25			`int i;`
26
27			`for (i = 0; i < N; i++)`
28			`{`
29			`r[i] = lrint (a[i]);`
30			`}`
31
32			`/* check results: */`
33			`for (i = 0; i < N; i++)`
34			`{`
35			`if (r[i] != lrint (a[i]))`
36			`abort();`
37			`}`
38			`}`