gcc/testsuite/gcc.target/powerpc/vec-init-4.c

   1 /* { dg-do run { target { powerpc*-*-linux* } } } */
   2 /* { dg-require-effective-target vsx_hw } */
   3 /* { dg-options "-O2 -mvsx" } */
   4
   5 #include <stdlib.h>
   6 #include <stddef.h>
   7 #include <altivec.h>
   8
   9 #define ELEMENTS -1, 2, 0, -32768, 32767, 53, 1, 16000
  10 #define SPLAT 0x0123
  11
  12 vector short sv = (vector short) { ELEMENTS };
  13 vector short splat = (vector short) { SPLAT, SPLAT, SPLAT, SPLAT,
  14                                       SPLAT, SPLAT, SPLAT, SPLAT };
  15 vector short sv_global, sp_global;
  16 static vector short sv_static, sp_static;
  17 static short expected[] = { ELEMENTS };
  18 static short splat_expected = SPLAT;
  19
  20 extern void check (vector short a)
  21   __attribute__((__noinline__));
  22
  23 extern void check_splat (vector short a)
  24   __attribute__((__noinline__));
  25
  26 extern vector short pack_reg (short a, short b, short c, short d,
  27                               short e, short f, short g, short h)
  28   __attribute__((__noinline__));
  29
  30 extern vector short pack_from_ptr (short *p_a, short *p_b,
  31                                    short *p_c, short *p_d,
  32                                    short *p_e, short *p_f,
  33                                    short *p_g, short *p_h)
  34   __attribute__((__noinline__));
  35
  36 extern vector short pack_const (void)
  37   __attribute__((__noinline__));
  38
  39 extern void pack_ptr (vector short *p,
  40                       short a, short b, short c, short d,
  41                       short e, short f, short g, short h)
  42   __attribute__((__noinline__));
  43
  44 extern void pack_static (short a, short b, short c, short d,
  45                          short e, short f, short g, short h)
  46   __attribute__((__noinline__));
  47
  48 extern void pack_global (short a, short b, short c, short d,
  49                          short e, short f, short g, short h)
  50   __attribute__((__noinline__));
  51
  52 extern vector short splat_reg (short a)
  53   __attribute__((__noinline__));
  54
  55 extern vector short splat_from_ptr (short *p_a)
  56   __attribute__((__noinline__));
  57
  58 extern vector short splat_const (void)
  59   __attribute__((__noinline__));
  60
  61 extern void splat_ptr (vector short *p, short a)
  62   __attribute__((__noinline__));
  63
  64 extern void splat_static (short a)
  65   __attribute__((__noinline__));
  66
  67 extern void splat_global (short a)
  68   __attribute__((__noinline__));
  69
  70 void
  71 check (vector short a)
  72 {
  73   size_t i;
  74
  75   for (i = 0; i < 8; i++)
  76     if (vec_extract (a, i) != expected[i])
  77       abort ();
  78 }
  79
  80 void
  81 check_splat (vector short a)
  82 {
  83   size_t i;
  84
  85   for (i = 0; i < 8; i++)
  86     if (vec_extract (a, i) != SPLAT)
  87       abort ();
  88 }
  89
  90 vector short
  91 pack_reg (short a, short b, short c, short d,
  92           short e, short f, short g, short h)
  93 {
  94   return (vector short) { a, b, c, d, e, f, g, h };
  95 }
  96
  97 vector short
  98 pack_from_ptr (short *p_a, short *p_b, short *p_c, short *p_d,
  99                short *p_e, short *p_f, short *p_g, short *p_h)
 100 {
 101   return (vector short) { *p_a, *p_b, *p_c, *p_d,
 102                           *p_e, *p_f, *p_g, *p_h };
 103 }
 104
 105 vector short
 106 pack_const (void)
 107 {
 108   return (vector short) { ELEMENTS };
 109 }
 110
 111 void
 112 pack_ptr (vector short *p,
 113           short a, short b, short c, short d,
 114           short e, short f, short g, short h)
 115 {
 116   *p = (vector short) { a, b, c, d, e, f, g, h };
 117 }
 118
 119 void
 120 pack_static (short a, short b, short c, short d,
 121              short e, short f, short g, short h)
 122 {
 123   sv_static = (vector short) { a, b, c, d, e, f, g, h };
 124 }
 125
 126 void
 127 pack_global (short a, short b, short c, short d,
 128              short e, short f, short g, short h)
 129 {
 130   sv_global = (vector short) { a, b, c, d, e, f, g, h };
 131 }
 132
 133 vector short
 134 splat_reg (short a)
 135 {
 136   return (vector short) { a, a, a, a, a, a, a, a };
 137 }
 138
 139 vector short
 140 splat_from_ptr (short *p_a)
 141 {
 142   return (vector short) { *p_a, *p_a, *p_a, *p_a,
 143                           *p_a, *p_a, *p_a, *p_a };
 144 }
 145
 146 vector short
 147 splat_const (void)
 148 {
 149   return (vector short) { SPLAT, SPLAT, SPLAT, SPLAT,
 150                           SPLAT, SPLAT, SPLAT, SPLAT };
 151 }
 152
 153 void
 154 splat_ptr (vector short *p, short a)
 155 {
 156   *p = (vector short) { a, a, a, a, a, a, a, a };
 157 }
 158
 159 void
 160 splat_static (short a)
 161 {
 162   sp_static = (vector short) { a, a, a, a, a, a, a, a };
 163 }
 164
 165 void
 166 splat_global (short a)
 167 {
 168   sp_global = (vector short) { a, a, a, a, a, a, a, a };
 169 }
 170
 171 int main (void)
 172 {
 173   vector short sv2, sv3;
 174
 175   check (sv);
 176
 177   check (pack_reg (ELEMENTS));
 178
 179   check (pack_from_ptr (&expected[0], &expected[1], &expected[2],
 180                         &expected[3], &expected[4], &expected[5],
 181                         &expected[6], &expected[7]));
 182
 183   check (pack_const ());
 184
 185   pack_ptr (&sv2, ELEMENTS);
 186   check (sv2);
 187
 188   pack_static (ELEMENTS);
 189   check (sv_static);
 190
 191   pack_global (ELEMENTS);
 192   check (sv_global);
 193
 194   check_splat (splat);
 195
 196   check_splat (splat_reg (SPLAT));
 197
 198   check_splat (splat_from_ptr (&splat_expected));
 199
 200   check_splat (splat_const ());
 201
 202   splat_ptr (&sv2, SPLAT);
 203   check_splat (sv2);
 204
 205   splat_static (SPLAT);
 206   check_splat (sp_static);
 207
 208   splat_global (SPLAT);
 209   check_splat (sp_global);
 210
 211   return 0;
 212 }