1  /* { dg-do run } */
       2  /* { dg-options "-O2 -fno-strict-aliasing -msse2" } */
       3  /* { dg-additional-options "-mno-mmx" { target { ! ia32 } } } */
       4  
       5  #include "sse2-check.h"
       6  #include "mmx-vals.h"
       7  
       8  __attribute__((noinline, noclone))
       9  static void
      10  test_psrad  (long long *ll1, long long *ll2, long long *r)
      11  {
      12    __m64 t1 = *(__m64 *) ll1;
      13    __m64 t2 = *(__m64 *) ll2;
      14    *(__m64 *) r = _m_psrad (t1, t2);
      15  }
      16  
      17  /* Routine to manually compute the results */
      18  static void
      19  compute_correct_result (long long *dst_p, long long *src_p,
      20  			long long *res_p)
      21  {
      22    int *dst = (int *) dst_p;
      23    unsigned int *src = (unsigned int *) src_p;
      24    int *res = (int *) res_p;
      25    int i;
      26    if (src[1] || src[0] > 31)
      27      for (i = 0; i < 2; i++)
      28        res[i] = dst[i] < 0 ? -1 : 0;
      29    else
      30      for (i = 0; i < 2; i++)
      31        res[i] = dst[i] >> src[0];
      32  }
      33  
      34  static void
      35  sse2_test (void)
      36  {
      37    int i;
      38    long long r, ck;
      39    int fail = 0;
      40  
      41    /* Run the MMX tests */
      42    for (i = 0; i < MMX_num_ops; i += 2)
      43      {
      44        test_psrad (&MMXops[i], &MMXops[i + 1], &r);
      45        compute_correct_result (&MMXops[i], &MMXops[i + 1], &ck);
      46        if (ck != r)
      47  	fail++;
      48      }
      49  
      50    if (fail != 0)
      51      abort ();
      52  }