/* { dg-do run } */
/* { dg-options "-O3 -mpower8-vector -Wno-psabi" } */
/* { dg-require-effective-target p8vector_hw } */

#ifndef CHECK_H
#define CHECK_H "sse2-check.h"
#endif

#include CHECK_H

#ifndef TEST
#define TEST sse2_test_pshuflw_1
#endif

#define N 0xec

#include <emmintrin.h>

static __m128i
__attribute__((noinline, unused))
test (__m128i s1)
{
  return _mm_shufflelo_epi16 (s1, N); 
}

static void
TEST (void)
{
  union128i_w s1, u;
  short  e[8] = { 0 };
  int i;
  int m1[4] = { 0x3, 0x3<<2, 0x3<<4, 0x3<<6 };
  int m2[4];
  
  s1.x = _mm_set_epi16 (0, 0, 0xa, 0xbcde, 0, 0, 0xef58, 0xa234);
  u.x = test (s1.x);

  for (i = 0; i < 4; i++)
    e[i + 4] = s1.a[i + 4];

  for (i = 0; i < 4; i++) {
    int i2 = i;
#ifdef __LITTLE_ENDIAN__
    i2 = 3 - i;
#endif
    m2[i2] = (N & m1[i2]) >> (2 * i2);
  }

  for (i = 0; i < 4; i++)
    e[i] = s1.a[m2[i]];

  if (check_union128i_w(u, e))
    {
#if DEBUG
      union128i_w s;
      s.x = s1.x;
      printf ("sse2_test_pshuflw_1; check_union128i_w failed\n");
      printf ("\t ([%hx,%hx,%hx,%hx, %hx,%hx,%hx,%hx])\n", s.a[0], s.a[1],
	      s.a[2], s.a[3], s.a[4], s.a[5], s.a[6], s.a[7]);
      printf ("\t\t -> [%hx,%hx,%hx,%hx, %hx,%hx,%hx,%hx]\n", u.a[0], u.a[1],
	      u.a[2], u.a[3], u.a[4], u.a[5], u.a[6], u.a[7]);
      printf ("\t expect [%hx,%hx,%hx,%hx, %hx,%hx,%hx,%hx]\n", e[0], e[1],
	      e[2], e[3], e[4], e[5], e[6], e[7]);
#endif
      abort ();
    }
}