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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.target/] [i386/] [sse2-copysign-vec.c] - Blame information for rev 318

Line No.	Rev	Author	Line
1	318	jeremybenn	`/* { dg-do run } */`
2			`/* { dg-options "-O2 -ftree-vectorize -msse2" } */`
3			`/* { dg-require-effective-target sse2 } */`
4
5			`#include "sse2-check.h"`
6
7			`extern double copysign (double, double);`
8
9			`#define N 16`
10
11			`double a[N] = {-0.1,-3.2,-6.3,-9.4,-12.5,-15.6,-18.7,-21.8,24.9,27.1,30.2,33.3,36.4,39.5,42.6,45.7};`
12			`double b[N] = {-1.2,3.4,-5.6,7.8,-9.0,1.0,-2.0,3.0,-4.0,-5.0,6.0,7.0,-8.0,-9.0,10.0,11.0};`
13			`double r[N];`
14
15			`static void`
16			`sse2_test (void)`
17			`{`
18			`int i;`
19
20			`for (i = 0; i < N; i++)`
21			`r[i] = copysign (a[i], b[i]);`
22
23			`/* check results: */`
24			`for (i = 0; i < N; i++)`
25			`if (r[i] != copysign (a[i], b[i]))`
26			`abort ();`
27			`}`
28