1 /* { dg-do run } */
2 /* { dg-options "-O2 -mavx512bw" } */
3 /* { dg-require-effective-target avx512bw } */
4
5 #define AVX512BW
6 #include "avx512f-helper.h"
7
8 #include <string.h>
9
10 #define SIZE (AVX512F_LEN / 8)
11 #include "avx512f-mask-type.h"
12
13 #define N 0x3
14
15 void
CALC(char * src1,char * src2,char * dst)16 CALC (char *src1, char *src2, char * dst)
17 {
18 /* result for EVEX.U1.512 version consists from 4 result block, each of them
19 * has length of 128 bits. */
20 unsigned block_len = 16;
21 unsigned double_block_len = 32;
22 unsigned shift = 0;
23 char buf[double_block_len];
24 char *bout = dst;
25 int bits, i;
26
27 for (bits = 0; bits < AVX512F_LEN; bits += 128)
28 {
29 memcpy (&buf[0], src2 + shift, block_len);
30 memcpy (&buf[block_len], src1 + shift, block_len);
31
32 for (i = 0; i < block_len; i++)
33 /* shift counts larger than 32 produces zero result. */
34 if (N >= 32 || N + i >= 32)
35 bout[i] = 0;
36 else
37 bout[i] = buf[N + i];
38
39 shift += block_len;
40 bout += block_len;
41 }
42 }
43
44 void
TEST(void)45 TEST (void)
46 {
47 UNION_TYPE (AVX512F_LEN, i_b) s1, s2, res1, res2, res3;
48 MASK_TYPE mask = MASK_VALUE;
49 char res_ref[SIZE];
50 int i;
51
52 for (i = 0; i < SIZE; i++)
53 {
54 s1.a[i] = i;
55 s2.a[i] = i * 2;
56 res2.a[i] = DEFAULT_VALUE;
57 }
58
59 res1.x = INTRINSIC (_alignr_epi8) (s1.x, s2.x, N);
60 res2.x = INTRINSIC (_mask_alignr_epi8) (res2.x, mask, s1.x, s2.x, N);
61 res3.x = INTRINSIC (_maskz_alignr_epi8) (mask, s1.x, s2.x, N);
62
63 CALC (s1.a, s2.a, res_ref);
64
65 if (UNION_CHECK (AVX512F_LEN, i_b) (res1, res_ref))
66 abort ();
67
68 MASK_MERGE (i_b) (res_ref, mask, SIZE);
69 if (UNION_CHECK (AVX512F_LEN, i_b) (res2, res_ref))
70 abort ();
71
72 MASK_ZERO (i_b) (res_ref, mask, SIZE);
73 if (UNION_CHECK (AVX512F_LEN, i_b) (res3, res_ref))
74 abort ();
75 }
76