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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
/* { dg-do run } */
/* { dg-options "-O2 -mavx512f -mvpclmulqdq" } */
/* { dg-require-effective-target avx512f } */
/* { dg-require-effective-target vpclmulqdq } */
#define AVX512F
#define VPCLMULQDQ
#include "avx512f-helper.h"
#define SIZE (AVX512F_LEN / 64)
#include "avx512f-mask-type.h"
static void
CALC (unsigned long long *r, unsigned long long *s1, unsigned long long *s2, unsigned char imm)
{
for (int len = 0; len < SIZE/2; len++)
{
unsigned long long src1, src2;
src1 = (imm & 1) ? s1[len*2 + 1] : s1[len*2];
src2 = ((imm >> 4) & 1) ? s2[len*2 + 1] : s2[len*2];
for (int i = 0; i < 64; i++)
{
if ((src1 >> i) & 1)
{
if (i)
r[len*2 + 1] ^= src2 >> (64 - i);
r[len*2] ^= src2 << i;
}
}
}
}
void
TEST (void)
{
int i;
UNION_TYPE (AVX512F_LEN, i_q) res, src1, src2;
unsigned long long res_ref[SIZE];
unsigned char imm = 1;
for (i = 0; i < SIZE; i++)
{
src1.a[i] = 0xFFFFFFFFF + i;
src2.a[i] = 0xFFFFFFFFF + i*i;
}
for (i = 0; i < SIZE; i++)
{
res.a[i] = 0;
res_ref[i] = 0;
}
CALC (res_ref, src1.a, src2.a, imm);
res.x = INTRINSIC (_clmulepi64_epi128) (src1.x, src2.x, imm);
if (UNION_CHECK (AVX512F_LEN, i_q) (res, res_ref))
abort ();
}
|
