1/* { dg-do run } */
2/* { dg-require-effective-target xop } */
3/* { dg-options "-O2 -mxop" } */
4
5#include "xop-check.h"
6
7#include <x86intrin.h>
8
9#ifndef ZERO_MATCH
10#define ZERO_MATCH  2
11#endif
12
13static double
14select2dp(double *src1, double *src2, long long  sel)
15{
16    double tmp = 0.0;
17
18    if ((sel & 0x3) == 0) tmp = src1[0];
19    if ((sel & 0x3) == 1) tmp = src1[1];
20    if ((sel & 0x3) == 2) tmp = src2[0];
21    if ((sel & 0x3) == 3) tmp = src2[1];
22
23    return tmp;
24}
25
26static double
27sel_and_condzerodp(double *src1, double *src2, long long  sel, int imm8)
28{
29    double tmp;
30
31    tmp = select2dp(src1, src2, sel & 0x3);
32
33    if (((imm8 & 0x3) == 2) && ((sel & 0x4) == 0x4)) tmp = 0;
34    if (((imm8 & 0x3) == 3) && ((sel & 0x4) == 0x0)) tmp = 0;
35
36    return tmp;
37}
38
39void static
40xop_test ()
41{
42    union128d s1, s2, u;
43    union128i_q s3;
44    double e[2];
45
46    s1.x = _mm_set_pd (1, 2);
47    s2.x = _mm_set_pd (3, 4);
48    s3.x = _mm_set_epi64x (1, 2);
49    u.x = _mm_permute2_pd(s1.x, s2.x, s3.x, ZERO_MATCH);
50
51    e[0] = sel_and_condzerodp (s1.a, s2.a, (s3.a[0] & 0xe)>>1, ZERO_MATCH);
52    e[1] = sel_and_condzerodp (s1.a, s2.a, (s3.a[1] & 0xe)>>1, ZERO_MATCH);
53
54    if (check_union128d (u, e))
55      abort ();
56}
57
58