gcc/testsuite/gcc.target/powerpc/builtins-5-p9-runnable.c

   1 /* { dg-do run { target { powerpc*-*-* &&  p9vector_hw } } } */
   2 /* { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power9" } } */
   3 /* { dg-options "-mcpu=power9 -O2" } */
   4
   5 #include <stdint.h>
   6 #include <stdio.h>
   7 #include <inttypes.h>
   8 #include <altivec.h> // vector
   9
  10 #define TRUE 1
  11 #define FALSE 0
  12
  13 #ifdef DEBUG
  14 #include <stdio.h>
  15 #endif
  16
  17 void abort (void);
  18
  19 int result_wrong(vector unsigned char vec_expected,
  20                   vector unsigned char vec_actual)
  21 {
  22   int i;
  23
  24   for (i=0; i<16; i++)
  25     if (vec_expected[i] != vec_actual[i])
  26       return TRUE;
  27
  28   return FALSE;
  29 }
  30
  31 int main() {
  32    int i, j;
  33    size_t size;
  34    unsigned char data_uc[100];
  35    vector unsigned char store_data_uc;
  36    unsigned char *address;
  37    vector unsigned char *datap;
  38
  39    vector unsigned char vec_uc_expected1, vec_uc_result1;
  40    vector int data_int;
  41
  42    for (i=0; i<100; i++)
  43       data_uc[i] = i+1;
  44
  45
  46    /* VEC_XL_LEN */
  47
  48    size = 8;
  49    vec_uc_result1 = vec_xl_len (data_uc, size);
  50
  51    vec_uc_expected1 = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
  52                                               0, 0, 0, 0, 0, 0, 0, 0};
  53
  54    if (result_wrong (vec_uc_expected1, vec_uc_result1))
  55      {
  56 #ifdef DEBUG
  57        printf("Error: result does not match expected result\n");
  58        printf("vec_xl_len (%d): vec_uc_expected1[0] to vec_uc_expected1[15]\n",
  59               size);
  60
  61        for (i=0; i<16; i++)
  62          printf(" %d,",vec_uc_expected1[i]);
  63
  64        printf("\nvec_xl_len (%d): vec_uc_result1[0] to vec_uc_result1[15]\n",
  65               size);
  66
  67        for (i=0; i<16; i++)
  68          printf(" %d,", vec_uc_result1[i]);
  69
  70        printf("\n\n");
  71 #else
  72        abort();
  73 #endif
  74      }
  75
  76
  77    /* VEC_XL_LEN_R */
  78    size = 8;
  79    vec_uc_result1 = vec_xl_len_r(data_uc, size);
  80
  81    vec_uc_expected1 = (vector unsigned char){8, 7, 6, 5, 4, 3, 2, 1,
  82                                              0, 0, 0, 0, 0, 0, 0, 0,};
  83
  84    if (result_wrong (vec_uc_expected1, vec_uc_result1))
  85      {
  86 #ifdef DEBUG
  87        printf("Error: result does not match expected result\n");
  88        printf("vec_xl_len_r(%d): vec_uc_expected1[0] to vec_uc_expected1[15]\n",
  89           size);
  90
  91        for (i=0; i<16; i++)
  92          printf(" %d,", vec_uc_expected1[i]);
  93
  94        printf("\nvec_xl_len_r(%d): vec_uc_result1[0] to vec_uc_result1[15]\n",
  95               size);
  96
  97        for (i=0; i<16; i++)
  98          printf(" %d,", vec_uc_result1[i]);
  99
 100        printf("\n\n");
 101 #else
 102        abort();
 103 #endif
 104      }
 105
 106
 107    size = 4;
 108    vec_uc_result1 = vec_xl_len_r(data_uc, size);
 109
 110    vec_uc_expected1 = (vector unsigned char){ 4, 3, 2, 1, 0, 0, 0, 0,
 111                                               0, 0, 0, 0, 0, 0, 0, 0 };
 112
 113    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 114      {
 115 #ifdef DEBUG
 116        printf("Error: result does not match expected result\n");
 117        printf("vec_xl_len_r(%d): vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 118             size);
 119
 120        for (i=0; i<16; i++)
 121          printf(" %d,", vec_uc_expected1[i]);
 122
 123        printf("\nvec_xl_len_r(%d): vec_uc_result1[0] to vec_uc_result1[15]\n",
 124               size);
 125
 126        for (i=0; i<16; i++)
 127          printf(" %d,", vec_uc_result1[i]);
 128
 129        printf("\n\n");
 130 #else
 131        abort();
 132 #endif
 133      }
 134
 135    size = 2;
 136    vec_uc_result1 = vec_xl_len_r(data_uc, size);
 137
 138    vec_uc_expected1 = (vector unsigned char){ 2, 1, 0, 0, 0, 0, 0, 0,
 139                                               0, 0, 0, 0, 0, 0, 0, 0 };
 140
 141    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 142      {
 143 #ifdef DEBUG
 144        printf("Error: result does not match expected result\n");
 145        printf("vec_xl_len_r(%d): vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 146               size);
 147        for (i=0; i<16; i++)
 148          printf(" %d,", vec_uc_expected1[i]);
 149
 150        printf("\nvec_xl_len_r(%d) vec_uc_result1[0] to vec_uc_result1[15]\n",
 151               size);
 152
 153        for (i=0; i<16; i++)
 154          printf(" %d,", vec_uc_result1[i]);
 155
 156        printf("\n\n");
 157 #else
 158        abort();
 159 #endif
 160      }
 161
 162
 163    /* VEC_XST_LEN */
 164    vec_uc_expected1 = (vector unsigned char){ 1, 2, 0, 0, 0, 0, 0, 0,
 165                                               0, 0, 0, 0, 0, 0, 0, 0 };
 166    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 167                                            9, 10, 11, 12, 13, 14, 15, 16 };
 168    size = 2;
 169
 170    for (i=0; i<16; i++)
 171      vec_uc_result1[i] = 0;
 172
 173    address = &vec_uc_result1[0];
 174    vec_xst_len (store_data_uc, address, size);
 175
 176    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 177      {
 178 #ifdef DEBUG
 179        printf("Error: result does not match expected result\n");
 180        printf("vec_xst_len (%d) vec_uc_result1[0] to vec_uc_result1[15]\n",
 181               size);
 182
 183        for (i=0; i<16; i++)
 184          printf(" %d,", vec_uc_expected1[i]);
 185
 186        printf("\nvec_xst_len (%d) store_data_uc[0] to store_data_uc[15]\n",
 187               size);
 188
 189        for (i=0; i<16; i++)
 190          printf(" %d,", vec_uc_result1[i]);
 191
 192        printf("\n\n");
 193 #else
 194        abort();
 195 #endif
 196      }
 197
 198    vec_uc_expected1 = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 199                                               9, 10, 11, 12, 13, 14, 0, 0 };
 200    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 201                                            9, 10, 11, 12, 13, 14, 15, 16 };
 202    size = 14;
 203
 204    for (i=0; i<16; i++)
 205      vec_uc_result1[i] = 0;
 206
 207    address = &vec_uc_result1[0];
 208
 209    vec_xst_len (store_data_uc, address, size);
 210
 211    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 212      {
 213 #ifdef DEBUG
 214        printf("Error: result does not match expected result\n");
 215        printf("vec_xst_len (%d) vec_uc_result1[0] to vec_uc_result1[15]\n",
 216               size);
 217
 218        for (i=0; i<16; i++)
 219          printf(" %d,", vec_uc_expected1[i]);
 220
 221        printf("\nvec_xst_len (%d) store_data_uc[0] to store_data_uc[15]\n",
 222               size);
 223
 224        for (i=0; i<16; i++)
 225          printf(" %d,", vec_uc_result1[i]);
 226
 227        printf("\n\n");
 228 #else
 229        abort();
 230 #endif
 231      }
 232
 233    /* VEC_XST_LEN_R */
 234    vec_uc_expected1 = (vector unsigned char){ 16, 15, 14, 13, 12, 11, 10, 9,
 235                                               8, 7, 6, 5, 4, 3, 2, 1 };
 236    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 237                                            9, 10, 11, 12, 13, 14, 15, 16 };
 238    vec_uc_result1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 239                                             0, 0, 0, 0, 0, 0, 0, 0 };
 240
 241    size = 16;
 242
 243    address = &vec_uc_result1[0];
 244
 245    vec_xst_len_r(store_data_uc, address, size);
 246
 247    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 248      {
 249 #ifdef DEBUG
 250        printf("Error: result does not match expected result\n");
 251        printf("vec_xst_len_r(%d) vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 252               size);
 253
 254        for (i=0; i<16; i++)
 255          printf(" %d,", vec_uc_expected1[i]);
 256
 257        printf("\nvec_xst_len_r(%d) result[0] to result[15]\n", size);
 258
 259        for (i=0; i<16; i++)
 260          printf(" %d,", vec_uc_result1[i]);
 261
 262        printf("\n\n");
 263 #else
 264        abort();
 265 #endif
 266      }
 267
 268    vec_uc_expected1 = (vector unsigned char){ 2, 1, 0, 0, 0, 0, 0, 0,
 269                                               0, 0, 0, 0, 0, 0, 0, 0 };
 270    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 271                                            9, 10, 11, 12, 13, 14, 15, 16 };
 272    vec_uc_result1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 273                                             0, 0, 0, 0, 0, 0, 0, 0 };
 274
 275    size = 2;
 276
 277    address = &vec_uc_result1[0];
 278
 279    vec_xst_len_r(store_data_uc, address, size);
 280
 281    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 282      {
 283 #ifdef DEBUG
 284        printf("Error: result does not match expected result\n");
 285        printf("vec_xst_len_r(%d) vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 286               size);
 287
 288        for (i=0; i<16; i++)
 289          printf(" %d,", vec_uc_expected1[i]);
 290
 291        printf("\nvec_xst_len_r(%d) result[0] to result[15]\n", size);
 292
 293        for (i=0; i<16; i++)
 294          printf(" %d,", vec_uc_result1[i]);
 295
 296        printf("\n\n");
 297 #else
 298        abort();
 299 #endif
 300      }
 301
 302    vec_uc_expected1 = (vector unsigned char){ 16, 15, 14, 13, 12, 11, 10, 9,
 303                                               8, 7, 6, 5, 4, 3, 2, 1 };
 304    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 305                                            9, 10, 11, 12, 13, 14, 15, 16 };
 306    vec_uc_result1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 307                                             0, 0, 0, 0, 0, 0, 0, 0 };
 308
 309    size = 16;
 310
 311    address = &vec_uc_result1[0];
 312
 313    vec_xst_len_r(store_data_uc, address, size);
 314
 315    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 316      {
 317 #ifdef DEBUG
 318        printf("Error: result does not match expected result\n");
 319        printf("vec_xst_len_r(%d) vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 320           size);
 321
 322        for (i=0; i<16; i++)
 323          printf(" %d,", vec_uc_expected1[i]);
 324
 325        printf("\nvec_xst_len_r(%d) result[0] to result[15]\n", size);
 326
 327        for (i=0; i<16; i++)
 328          printf(" %d,", vec_uc_result1[i]);
 329
 330        printf("\n\n");
 331 #else
 332        abort();
 333 #endif
 334      }
 335
 336    vec_uc_expected1 = (vector unsigned char){ 14, 13, 12, 11, 10, 9, 8, 7,
 337                                               6, 5, 4, 3, 2, 1, 0, 0 };
 338    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 339                                            9, 10, 11, 12, 13, 14, 15, 16 };
 340    vec_uc_result1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 341                                             0, 0, 0, 0, 0, 0, 0, 0 };
 342
 343    size = 14;
 344
 345    address = &vec_uc_result1[0];
 346
 347    vec_xst_len_r(store_data_uc, address, size);
 348
 349    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 350      {
 351 #ifdef DEBUG
 352        printf("Error: result does not match expected result\n");
 353        printf("vec_xst_len_r(%d) vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 354           size);
 355
 356        for (i=0; i<16; i++)
 357          printf(" %d,", vec_uc_expected1[i]);
 358
 359        printf("\nvec_xst_len_r(%d) result[0] to result[15]\n", size);
 360
 361        for (i=0; i<16; i++)
 362          printf(" %d,", vec_uc_result1[i]);
 363
 364        printf("\n\n");
 365 #else
 366        abort();
 367 #endif
 368      }
 369 }