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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.target/] [i386/] [avx-vpermilpd-1.c] - Blame information for rev 318

Go to most recent revision | Details | Compare with Previous | View Log


/* { dg-do run } */
/* { dg-require-effective-target avx } */
/* { dg-options "-O2 -mavx" } */
 
#include "avx-check.h"
 
#ifndef CTRL
#define CTRL 1
#endif
 
void static
avx_test ()
{
    union128d u, src;
    double s[2] = {9674.67456, 13543.9788};
    double e[2];
 
    src.x=_mm_loadu_pd(s);
    u.x=_mm_permute_pd(src.x, CTRL);
 
    e[0] = s[ (CTRL & 0x01)];
    e[1] = s[((CTRL & 0x02) >> 1)];
 
    if (check_union128d (u, e))
      abort ();
}
 

Line No.	Rev	Author	Line
1	318	jeremybenn	`/* { dg-do run } */`
2			`/* { dg-require-effective-target avx } */`
3			`/* { dg-options "-O2 -mavx" } */`
4
5			`#include "avx-check.h"`
6
7			`#ifndef CTRL`
8			`#define CTRL 1`
9			`#endif`
10
11			`void static`
12			`avx_test ()`
13			`{`
14			`union128d u, src;`
15			`double s[2] = {9674.67456, 13543.9788};`
16			`double e[2];`
17
18			`src.x=_mm_loadu_pd(s);`
19			`u.x=_mm_permute_pd(src.x, CTRL);`
20
21			`e[0] = s[ (CTRL & 0x01)];`
22			`e[1] = s[((CTRL & 0x02) >> 1)];`
23
24			`if (check_union128d (u, e))`
25			`abort ();`
26			`}`
27

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.target/] [i386/] [avx-vpermilpd-1.c] - Blame information for rev 318