1/* { dg-do run } */
2/* { dg-require-effective-target sse4a } */
3/* { dg-options "-O2 -msse4a" } */
4
5#include "sse4a-check.h"
6
7#include <ammintrin.h>
8
9typedef union
10{
11  long long i[2];
12  __m128i vec;
13} LI;
14
15static long long
16sse4a_test_extrq (long long in)
17{
18  __m128i v1, v2;
19  long long index_length, pad;
20  LI v_out;
21  index_length = 0x0000000000000810LL;
22  pad = 0x0;
23  v1 = _mm_set_epi64x (pad, in);
24  v2 = _mm_set_epi64x (pad, index_length);
25  v_out.vec = _mm_extract_si64 (v1, v2);
26  return (v_out.i[0]);
27}
28
29static long long
30sse4a_test_extrqi (long long in)
31{
32  __m128i v1;
33  long long pad =0x0;
34  LI v_out;
35  v1 = _mm_set_epi64x (pad, in);
36  v_out.vec = _mm_extracti_si64 (v1, (unsigned int) 0x10,(unsigned int) 0x08);
37  return (v_out.i[0]);
38}
39
40static int chk (long long i1, long long i2)
41{
42  int n_fails =0;
43  if (i1 != i2)
44    n_fails +=1;
45  return n_fails;
46}
47
48long long vals_in[5] =
49  {
50    0x1234567887654321LL,
51    0x1456782093002490LL,
52    0x2340909123990390LL,
53    0x9595959599595999LL,
54    0x9099038798000029LL
55  };
56
57long long vals_out[5] =
58  {
59    0x0000000000006543LL,
60    0x0000000000000024LL,
61    0x0000000000009903LL,
62    0x0000000000005959LL,
63    0x0000000000000000LL
64  };
65
66static void
67sse4a_test (void)
68{
69  int i;
70  int fail = 0;
71  long long out;
72
73  for (i = 0; i < 5; i += 1)
74    {
75      out = sse4a_test_extrq (vals_in[i]);
76      fail += chk(out, vals_out[i]);
77
78      out = sse4a_test_extrqi (vals_in[i]);
79      fail += chk(out, vals_out[i]);
80    }
81
82  if (fail != 0)
83    abort ();
84}
85