1  /* { dg-do run } */
       2  /* { dg-options "-O3 -mpower8-vector -Wno-psabi" } */
       3  /* { dg-require-effective-target p8vector_hw } */
       4  
       5  #ifndef CHECK_H
       6  #define CHECK_H "sse2-check.h"
       7  #endif
       8  
       9  #include CHECK_H
      10  
      11  #ifndef TEST
      12  #define TEST sse2_test_cmp_sd_1
      13  #endif
      14  
      15  #include <emmintrin.h>
      16  #include <math.h>
      17  
      18  double s1[] = {2134.3343, 6678.346};
      19  double s2[] = {41124.234, 6678.346};
      20  long long dd[] =  {1, 2}, d[2];
      21  union{long long l[2]; double d[2];} e;
      22  
      23  void check(char *id, __m128d dst)
      24  {
      25     __v2di dest = (__v2di)dst;
      26  
      27     if(checkVl(d, e.l, 2))
      28      {
      29        printf("mm_cmp%s_sd FAILED\n", id);
      30        printf("dst [%lld, %lld], e.l[%lld]\n",
      31               dest[0], dest[1], e.l[0]);
      32      }
      33  }
      34  
      35  #define CMP(cmp, rel)					\
      36      e.l[0] = rel ? -1 : 0;	                        \
      37      dest = _mm_loadu_pd((double*)dd);	      		\
      38      source1 = _mm_loadu_pd(s1);				\
      39      source2 = _mm_loadu_pd(s2);				\
      40      dest = _mm_cmp##cmp##_sd(source1, source2);	\
      41      _mm_storeu_pd((double*) d, dest);			\
      42      check("" #cmp "", dest);
      43  
      44  static void
      45  TEST ()
      46  {
      47      __m128d source1, source2, dest;
      48  
      49      e.d[1] = s1[1];
      50  
      51      CMP(eq, !isunordered(s1[0], s2[0]) && s1[0] == s2[0]);
      52      CMP(lt, !isunordered(s1[0], s2[0]) && s1[0] < s2[0]);
      53      CMP(le, !isunordered(s1[0], s2[0]) && s1[0] <= s2[0]);
      54      CMP(unord, isunordered(s1[0], s2[0]));
      55      CMP(neq, isunordered(s1[0], s2[0]) || s1[0] != s2[0]);
      56      CMP(nlt, isunordered(s1[0], s2[0]) || s1[0] >= s2[0]);
      57      CMP(nle, isunordered(s1[0], s2[0]) || s1[0] > s2[0]);
      58      CMP(ord, !isunordered(s1[0], s2[0]));
      59  
      60      CMP(ge, isunordered(s1[0], s2[0]) || s1[0] >= s2[0]);
      61      CMP(gt, isunordered(s1[0], s2[0]) || s1[0] > s2[0]);
      62      CMP(nge, !isunordered(s1[0], s2[0]) && s1[0] < s2[0]);
      63      CMP(ngt, !isunordered(s1[0], s2[0]) && s1[0] <= s2[0]);
      64  }