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 #include <string.h>
9
10 #define NUM 10
11
12 union
13 {
14 __m128i x[NUM];
15 signed char ssi[NUM * 16];
16 short si[NUM * 8];
17 int li[NUM * 4];
18 long long lli[NUM * 2];
19 } dst, res, src1;
20
21 static void
init_sbyte()22 init_sbyte ()
23 {
24 int i;
25 for (i=0; i < NUM * 16; i++)
26 src1.ssi[i] = i;
27 }
28
29 static void
init_sword()30 init_sword ()
31 {
32 int i;
33 for (i=0; i < NUM * 8; i++)
34 src1.si[i] = i;
35 }
36
37
38 static void
init_sdword()39 init_sdword ()
40 {
41 int i;
42 for (i=0; i < NUM * 4; i++)
43 src1.li[i] = i;
44 }
45
46 static int
check_sbyte2word()47 check_sbyte2word ()
48 {
49 int i, j, s, t, check_fails = 0;
50 for (i = 0; i < NUM * 16; i = i + 16)
51 {
52 for (j = 0; j < 8; j++)
53 {
54 t = i + (2 * j);
55 s = (i / 2) + j;
56 res.si[s] = src1.ssi[t] - src1.ssi[t + 1] ;
57 if (res.si[s] != dst.si[s])
58 check_fails++;
59 }
60 }
61 }
62
63 static int
check_sword2dword()64 check_sword2dword ()
65 {
66 int i, j, s, t, check_fails = 0;
67 for (i = 0; i < (NUM * 8); i = i + 8)
68 {
69 for (j = 0; j < 4; j++)
70 {
71 t = i + (2 * j);
72 s = (i / 2) + j;
73 res.li[s] = src1.si[t] - src1.si[t + 1] ;
74 if (res.li[s] != dst.li[s])
75 check_fails++;
76 }
77 }
78 }
79
80 static int
check_dword2qword()81 check_dword2qword ()
82 {
83 int i, j, s, t, check_fails = 0;
84 for (i = 0; i < (NUM * 4); i = i + 4)
85 {
86 for (j = 0; j < 2; j++)
87 {
88 t = i + (2 * j);
89 s = (i / 2) + j;
90 res.lli[s] = src1.li[t] - src1.li[t + 1] ;
91 if (res.lli[s] != dst.lli[s])
92 check_fails++;
93 }
94 }
95 }
96
97 static void
xop_test(void)98 xop_test (void)
99 {
100 int i;
101
102 /* Check hsubbw */
103 init_sbyte ();
104
105 for (i = 0; i < NUM; i++)
106 dst.x[i] = _mm_hsubw_epi8 (src1.x[i]);
107
108 if (check_sbyte2word())
109 abort ();
110
111
112 /* Check hsubwd */
113 init_sword ();
114
115 for (i = 0; i < (NUM ); i++)
116 dst.x[i] = _mm_hsubd_epi16 (src1.x[i]);
117
118 if (check_sword2dword())
119 abort ();
120
121 /* Check hsubdq */
122 init_sdword ();
123 for (i = 0; i < NUM; i++)
124 dst.x[i] = _mm_hsubq_epi32 (src1.x[i]);
125
126 if (check_dword2qword())
127 abort ();
128 }
129