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 * s1,long long * s2,long long * r)13 CALC (long long *s1, long long *s2, long long *r)
14 {
15 unsigned int i;
16
17 for (i = 0; i < SIZE; i++)
18 r[i] = (s1[i] >> s2[i]) | (s1[i] << (sizeof (s1[i]) * 8 - s2[i]));
19 }
20
21 void
TEST(void)22 TEST (void)
23 {
24 UNION_TYPE (AVX512F_LEN, i_q) s1, s2, res1, res2, res3;
25 MASK_TYPE mask = MASK_VALUE;
26 long long res_ref[SIZE];
27 unsigned int i;
28
29 for (i = 0; i < SIZE; i++)
30 {
31 s1.a[i] = 137 * i;
32 s2.a[i] = (i + 7);
33 res2.a[i] = DEFAULT_VALUE;
34 }
35
36 res1.x = INTRINSIC (_rorv_epi64) (s1.x, s2.x);
37 res2.x = INTRINSIC (_mask_rorv_epi64) (res2.x, mask, s1.x, s2.x);
38 res3.x = INTRINSIC (_maskz_rorv_epi64) (mask, s1.x, s2.x);
39
40 CALC (s1.a, s2.a, res_ref);
41
42 if (UNION_CHECK (AVX512F_LEN, i_q) (res1, res_ref))
43 abort ();
44
45 MASK_MERGE (i_q) (res_ref, mask, SIZE);
46 if (UNION_CHECK (AVX512F_LEN, i_q) (res2, res_ref))
47 abort ();
48
49 MASK_ZERO (i_q) (res_ref, mask, SIZE);
50 if (UNION_CHECK (AVX512F_LEN, i_q) (res3, res_ref))
51 abort ();
52 }
53