gcc/testsuite/gcc.target/powerpc/vsx-builtin-17c.c

   1 /* { dg-do run } */
   2 /* { dg-require-effective-target vmx_hw } */
   3 /* { dg-options "-maltivec" } */
   4
   5 /* This test should run the same on any target that supports altivec/vmx
   6    instructions.  Intentionally not specifying cpu in order to test
   7    all code generation paths.  */
   8
   9 #include <altivec.h>
  10
  11 extern void abort (void);
  12
  13 #define CONST0          (0)
  14 #define CONST1          (1)
  15 #define CONST2          (2)
  16 #define CONST3          (3)
  17 #define CONST4          (4)
  18 #define CONST5          (5)
  19 #define CONST6          (6)
  20 #define CONST7          (7)
  21
  22
  23 /* Test that indices > length of vector are applied modulo the vector
  24    length.  */
  25
  26 /* Test for vector residing in register.  */
  27 vector unsigned short s3 (vector unsigned short v, unsigned short x)
  28 {
  29   return vec_insert (x, v, 3);
  30 }
  31
  32 vector unsigned short s7 (vector unsigned short v, unsigned short x)
  33 {
  34   return vec_insert (x, v, 7);
  35 }
  36
  37 vector unsigned short s21 (vector unsigned short v, unsigned short x)
  38 {
  39   return vec_insert (x, v, 21);
  40 }
  41
  42 vector unsigned short s30 (vector unsigned short v, unsigned short x)
  43 {
  44   return vec_insert (x, v, 30);
  45 }
  46
  47 /* Test for vector residing in memory.  */
  48 vector unsigned short ms3 (vector unsigned short *vp, unsigned short x)
  49 {
  50   return vec_insert (x, *vp, 3);
  51 }
  52
  53 vector unsigned short ms7 (vector unsigned short *vp, unsigned short x)
  54 {
  55   return vec_insert (x, *vp, 7);
  56 }
  57
  58 vector unsigned short ms21 (vector unsigned short *vp, unsigned short x)
  59 {
  60   return vec_insert (x, *vp, 21);
  61 }
  62
  63 vector unsigned short ms30 (vector unsigned short *vp, unsigned short x)
  64 {
  65   return vec_insert (x, *vp, 30);
  66 }
  67
  68 /* Test the same with variable indices.  */
  69
  70 /* Test for variable selector and vector residing in register.  */
  71 __attribute__((noinline))
  72 vector unsigned short ci (vector unsigned short v, int i, unsigned short x)
  73 {
  74   return vec_insert (x, v, i);
  75 }
  76
  77 /* Test for variable selector and vector residing in memory.  */
  78 __attribute__((noinline))
  79 vector unsigned short mci (vector unsigned short *vp, int i, unsigned short x)
  80 {
  81   return vec_insert (x, *vp, i);
  82 }
  83
  84
  85 int main (int argc, unsigned short *argv[]) {
  86   vector unsigned short sv = {
  87     CONST0, CONST1, CONST2, CONST3, CONST4, CONST5, CONST6, CONST7 };
  88
  89   sv = s3 (sv, CONST1);
  90   if (sv [3] != CONST1)
  91     abort ();
  92
  93   sv = s7 (sv, CONST2);
  94   if (sv [7] != CONST2)
  95     abort ();
  96
  97   sv = s21 (sv, CONST3);
  98   if (sv [5] != CONST3)
  99     abort ();
 100
 101   sv = s30 (sv, CONST4);
 102   if (sv [6] != CONST4)
 103     abort ();
 104
 105   sv = ms3 (&sv, CONST5);
 106   if (sv [3] != CONST5)
 107     abort ();
 108
 109   sv = ms7 (&sv, CONST6);
 110   if (sv [7] != CONST6)
 111     abort ();
 112
 113   sv = ms21 (&sv, CONST7);
 114   if (sv [5] != CONST7)
 115     abort ();
 116
 117   sv = ms30 (&sv, CONST0);
 118   if (sv [6] != CONST0)
 119     abort ();
 120
 121   sv = ci (sv, 5, CONST1);
 122   if (sv [5] != CONST1)
 123     abort ();
 124
 125   sv = ci (sv, 2, CONST3);
 126   if (sv [2] != CONST3)
 127     abort ();
 128
 129   sv = ci (sv, 15, CONST2);
 130   if (sv [7] != CONST2)
 131     abort ();
 132
 133   sv = ci (sv, 28, CONST5);
 134   if (sv [4] != CONST5)
 135     abort ();
 136
 137   sv = mci (&sv, 5, CONST4);
 138   if (sv [5] != CONST4)
 139     abort ();
 140
 141   sv = mci (&sv, 12, CONST6);
 142   if (sv [4] != CONST6)
 143     abort ();
 144
 145   sv = mci (&sv, 25, CONST7);
 146   if (sv [1] != CONST7)
 147     abort ();
 148
 149   sv = mci (&sv, 16, CONST4);
 150   if (sv [0] != CONST4)
 151     abort ();
 152
 153   return 0;
 154 }