gcc/testsuite/gcc.target/i386/avx-vperm2f128-256-2.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

/* { 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 ();
}