URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [i386/] [avx-vperm2f128-256-2.c] - Rev 848
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run } */ /* { dg-require-effective-target avx } */ /* { dg-options "-O2 -mavx" } */ #include "avx-check.h" #ifndef IMM8 # define IMM8 99 #endif void static avx_test () { union256d source1, source2, u; double s1[4]={1, 2, 3, 4}; double s2[4]={5, 6, 7, 8}; double e[4]; source1.x = _mm256_loadu_pd(s1); source2.x = _mm256_loadu_pd(s2); u.x = _mm256_permute2f128_pd(source1.x, source2.x, IMM8); if(IMM8 & 8) e[0] = e[1] = 0; else{ e[0] = (IMM8 & 2 ? s2 : s1)[(IMM8 & 1) * 2]; e[1] = (IMM8 & 2 ? s2 : s1)[(IMM8 & 1) * 2 + 1]; } if(IMM8 & 128) e[3] = e[3] = 0; else{ unsigned m = (IMM8 >> 4) & 3; e[2] = (m & 2 ? s2 : s1)[(m & 1) * 2]; e[3] = (m & 2 ? s2 : s1)[(m & 1) * 2 + 1]; } if (check_union256d (u, e)) abort (); }
Go to most recent revision | Compare with Previous | Blame | View Log