1 /* { dg-do run } */
2 /* { dg-options "-O2 -mavx512f" } */
3 /* { dg-require-effective-target avx512f } */
4
5 #define AVX512F
6
7 #include "avx512f-helper.h"
8
9 #define SIZE (AVX512F_LEN / 64)
10 #include "avx512f-mask-type.h"
11
12 static void
CALC(long long * mask,double * s1,double * r)13 CALC (long long *mask, double *s1, double *r)
14 {
15 int i;
16
17 for (i = 0; i < SIZE; i++)
18 {
19 r[i] = s1[mask[i] & 7 % SIZE];
20 }
21 }
22
23 static void
TEST(void)24 TEST (void)
25 {
26 UNION_TYPE (AVX512F_LEN, d) src1, res1, res2, res3;
27 UNION_TYPE (AVX512F_LEN, i_q) src2;
28 MASK_TYPE mask = MASK_VALUE;
29 double res_ref[SIZE];
30 int i, sign = 1;
31
32 for (i = 0; i < SIZE; i++)
33 {
34 src1.a[i] = i * sign;
35 src2.a[i] = i + 20;
36 sign = -sign;
37 res2.a[i] = DEFAULT_VALUE;
38 }
39
40 res1.x = INTRINSIC (_permutexvar_pd) (src2.x, src1.x);
41 res2.x = INTRINSIC (_mask_permutexvar_pd) (res2.x, mask, src2.x, src1.x);
42 res3.x = INTRINSIC (_maskz_permutexvar_pd) (mask, src2.x, src1.x);
43
44 CALC (src2.a, src1.a, res_ref);
45
46 if (UNION_CHECK (AVX512F_LEN, d) (res1, res_ref))
47 abort ();
48
49 MASK_MERGE (d) (res_ref, mask, SIZE);
50 if (UNION_CHECK (AVX512F_LEN, d) (res2, res_ref))
51 abort ();
52
53 MASK_ZERO (d) (res_ref, mask, SIZE);
54 if (UNION_CHECK (AVX512F_LEN, d) (res3, res_ref))
55 abort ();
56 }
57