gcc/testsuite/gcc.target/powerpc/pr78604.c

   1 /* { dg-do compile { target { powerpc*-*-* } } } */
   2 /* { dg-skip-if "" { powerpc*-*-darwin* } } */
   3 /* { dg-require-effective-target powerpc_p8vector_ok } */
   4 /* { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power8" } } */
   5 /* { dg-options "-mcpu=power8 -O2 -ftree-vectorize -fdump-tree-vect-details" } */
   6
   7 #ifndef SIZE
   8 #define SIZE 1024
   9 #endif
  10
  11 #ifndef ALIGN
  12 #define ALIGN 32
  13 #endif
  14
  15 #ifndef TYPE
  16 #define TYPE long long
  17 #endif
  18
  19 #ifndef SIGN_TYPE
  20 #define SIGN_TYPE signed TYPE
  21 #endif
  22
  23 #ifndef UNS_TYPE
  24 #define UNS_TYPE unsigned TYPE
  25 #endif
  26
  27 #define ALIGN_ATTR __attribute__((__aligned__(ALIGN)))
  28
  29 SIGN_TYPE       sa[SIZE] ALIGN_ATTR;
  30 SIGN_TYPE       sb[SIZE] ALIGN_ATTR;
  31 SIGN_TYPE       sc[SIZE] ALIGN_ATTR;
  32
  33 UNS_TYPE        ua[SIZE] ALIGN_ATTR;
  34 UNS_TYPE        ub[SIZE] ALIGN_ATTR;
  35 UNS_TYPE        uc[SIZE] ALIGN_ATTR;
  36
  37 void
  38 sign_lt (SIGN_TYPE val1, SIGN_TYPE val2)
  39 {
  40   unsigned long i;
  41
  42   for (i = 0; i < SIZE; i++)
  43     sa[i] = (sb[i] < sc[i]) ? val1 : val2;
  44 }
  45
  46 void
  47 sign_lte (SIGN_TYPE val1, SIGN_TYPE val2)
  48 {
  49   unsigned long i;
  50
  51   for (i = 0; i < SIZE; i++)
  52     sa[i] = (sb[i] <= sc[i]) ? val1 : val2;
  53 }
  54
  55 void
  56 sign_gt (SIGN_TYPE val1, SIGN_TYPE val2)
  57 {
  58   unsigned long i;
  59
  60   for (i = 0; i < SIZE; i++)
  61     sa[i] = (sb[i] > sc[i]) ? val1 : val2;
  62 }
  63
  64 void
  65 sign_gte (SIGN_TYPE val1, SIGN_TYPE val2)
  66 {
  67   unsigned long i;
  68
  69   for (i = 0; i < SIZE; i++)
  70     sa[i] = (sb[i] >= sc[i]) ? val1 : val2;
  71 }
  72
  73
  74 void
  75 uns_lt (UNS_TYPE val1, UNS_TYPE val2)
  76 {
  77   unsigned long i;
  78
  79   for (i = 0; i < SIZE; i++)
  80     ua[i] = (ub[i] < uc[i]) ? val1 : val2;
  81 }
  82
  83 void
  84 uns_lte (UNS_TYPE val1, UNS_TYPE val2)
  85 {
  86   unsigned long i;
  87
  88   for (i = 0; i < SIZE; i++)
  89     ua[i] = (ub[i] <= uc[i]) ? val1 : val2;
  90 }
  91
  92 void
  93 uns_gt (UNS_TYPE val1, UNS_TYPE val2)
  94 {
  95   unsigned long i;
  96
  97   for (i = 0; i < SIZE; i++)
  98     ua[i] = (ub[i] > uc[i]) ? val1 : val2;
  99 }
 100
 101 void
 102 uns_gte (UNS_TYPE val1, UNS_TYPE val2)
 103 {
 104   unsigned long i;
 105
 106   for (i = 0; i < SIZE; i++)
 107     ua[i] = (ub[i] >= uc[i]) ? val1 : val2;
 108 }
 109
 110 /* { dg-final { scan-assembler-times {\mvcmpgtsd\M} 4 } } */
 111 /* { dg-final { scan-assembler-times {\mvcmpgtud\M} 4 } } */
 112 /* { dg-final { scan-assembler-not   {\mvcmpequd\M} } } */
 113 /* { dg-final { scan-tree-dump-times "vect_model_simple_cost" 8 "vect" } } */