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

   1 /* { dg-do run { target lp64 } } */
   2 /* { dg-require-effective-target p9vector_hw } */
   3 /* { dg-options "-mdejagnu-cpu=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 #ifdef __LITTLE_ENDIAN__
  82    vec_uc_expected1 = (vector unsigned char){8, 7, 6, 5, 4, 3, 2, 1,
  83                                              0, 0, 0, 0, 0, 0, 0, 0,};
  84 #else
  85    vec_uc_expected1 = (vector unsigned char){0, 0, 0, 0, 0, 0, 0, 0,
  86                                              1, 2, 3, 4, 5, 6, 7, 8,};
  87 #endif
  88
  89    if (result_wrong (vec_uc_expected1, vec_uc_result1))
  90      {
  91 #ifdef DEBUG
  92        printf("Error: result does not match expected result\n");
  93        printf("vec_xl_len_r(%d): vec_uc_expected1[0] to vec_uc_expected1[15]\n",
  94           size);
  95
  96        for (i=0; i<16; i++)
  97          printf(" %d,", vec_uc_expected1[i]);
  98
  99        printf("\nvec_xl_len_r(%d): vec_uc_result1[0] to vec_uc_result1[15]\n",
 100               size);
 101
 102        for (i=0; i<16; i++)
 103          printf(" %d,", vec_uc_result1[i]);
 104
 105        printf("\n\n");
 106 #else
 107        abort();
 108 #endif
 109      }
 110
 111
 112    size = 4;
 113    vec_uc_result1 = vec_xl_len_r(data_uc, size);
 114
 115 #ifdef __LITTLE_ENDIAN__
 116    vec_uc_expected1 = (vector unsigned char){ 4, 3, 2, 1, 0, 0, 0, 0,
 117                                               0, 0, 0, 0, 0, 0, 0, 0 };
 118 #else
 119    vec_uc_expected1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 120                                               0, 0, 0, 0, 1, 2, 3, 4 };
 121 #endif
 122
 123    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 124      {
 125 #ifdef DEBUG
 126        printf("Error: result does not match expected result\n");
 127        printf("vec_xl_len_r(%d): vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 128             size);
 129
 130        for (i=0; i<16; i++)
 131          printf(" %d,", vec_uc_expected1[i]);
 132
 133        printf("\nvec_xl_len_r(%d): vec_uc_result1[0] to vec_uc_result1[15]\n",
 134               size);
 135
 136        for (i=0; i<16; i++)
 137          printf(" %d,", vec_uc_result1[i]);
 138
 139        printf("\n\n");
 140 #else
 141        abort();
 142 #endif
 143      }
 144
 145    size = 2;
 146    vec_uc_result1 = vec_xl_len_r(data_uc, size);
 147
 148 #ifdef __LITTLE_ENDIAN__
 149    vec_uc_expected1 = (vector unsigned char){ 2, 1, 0, 0, 0, 0, 0, 0,
 150                                               0, 0, 0, 0, 0, 0, 0, 0 };
 151 #else
 152    vec_uc_expected1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 153                                               0, 0, 0, 0, 0, 0, 1, 2 };
 154 #endif
 155
 156    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 157      {
 158 #ifdef DEBUG
 159        printf("Error: result does not match expected result\n");
 160        printf("vec_xl_len_r(%d): vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 161               size);
 162        for (i=0; i<16; i++)
 163          printf(" %d,", vec_uc_expected1[i]);
 164
 165        printf("\nvec_xl_len_r(%d) vec_uc_result1[0] to vec_uc_result1[15]\n",
 166               size);
 167
 168        for (i=0; i<16; i++)
 169          printf(" %d,", vec_uc_result1[i]);
 170
 171        printf("\n\n");
 172 #else
 173        abort();
 174 #endif
 175      }
 176
 177
 178    /* VEC_XST_LEN */
 179    vec_uc_expected1 = (vector unsigned char){ 1, 2, 0, 0, 0, 0, 0, 0,
 180                                               0, 0, 0, 0, 0, 0, 0, 0 };
 181    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 182                                            9, 10, 11, 12, 13, 14, 15, 16 };
 183    size = 2;
 184
 185    for (i=0; i<16; i++)
 186      vec_uc_result1[i] = 0;
 187
 188    address = &vec_uc_result1[0];
 189    vec_xst_len (store_data_uc, address, size);
 190
 191    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 192      {
 193 #ifdef DEBUG
 194        printf("Error: result does not match expected result\n");
 195        printf("vec_xst_len (%d) vec_uc_result1[0] to vec_uc_result1[15]\n",
 196               size);
 197
 198        for (i=0; i<16; i++)
 199          printf(" %d,", vec_uc_expected1[i]);
 200
 201        printf("\nvec_xst_len (%d) store_data_uc[0] to store_data_uc[15]\n",
 202               size);
 203
 204        for (i=0; i<16; i++)
 205          printf(" %d,", vec_uc_result1[i]);
 206
 207        printf("\n\n");
 208 #else
 209        abort();
 210 #endif
 211      }
 212
 213    vec_uc_expected1 = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 214                                               9, 10, 11, 12, 13, 14, 0, 0 };
 215    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 216                                            9, 10, 11, 12, 13, 14, 15, 16 };
 217    size = 14;
 218
 219    for (i=0; i<16; i++)
 220      vec_uc_result1[i] = 0;
 221
 222    address = &vec_uc_result1[0];
 223
 224    vec_xst_len (store_data_uc, address, size);
 225
 226    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 227      {
 228 #ifdef DEBUG
 229        printf("Error: result does not match expected result\n");
 230        printf("vec_xst_len (%d) vec_uc_result1[0] to vec_uc_result1[15]\n",
 231               size);
 232
 233        for (i=0; i<16; i++)
 234          printf(" %d,", vec_uc_expected1[i]);
 235
 236        printf("\nvec_xst_len (%d) store_data_uc[0] to store_data_uc[15]\n",
 237               size);
 238
 239        for (i=0; i<16; i++)
 240          printf(" %d,", vec_uc_result1[i]);
 241
 242        printf("\n\n");
 243 #else
 244        abort();
 245 #endif
 246      }
 247
 248    /* VEC_XST_LEN_R */
 249 #ifdef __LITTLE_ENDIAN__
 250    vec_uc_expected1 = (vector unsigned char){ 16, 15, 14, 13, 12, 11, 10, 9,
 251                                               8, 7, 6, 5, 4, 3, 2, 1 };
 252 #else
 253    vec_uc_expected1 = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 254                                               9, 10, 11, 12, 13, 14, 15, 16 };
 255 #endif
 256    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 257                                            9, 10, 11, 12, 13, 14, 15, 16 };
 258    vec_uc_result1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 259                                             0, 0, 0, 0, 0, 0, 0, 0 };
 260
 261    size = 16;
 262
 263    address = &vec_uc_result1[0];
 264
 265    vec_xst_len_r(store_data_uc, address, size);
 266
 267    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 268      {
 269 #ifdef DEBUG
 270        printf("Error: result does not match expected result\n");
 271        printf("vec_xst_len_r(%d) vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 272               size);
 273
 274        for (i=0; i<16; i++)
 275          printf(" %d,", vec_uc_expected1[i]);
 276
 277        printf("\nvec_xst_len_r(%d) result[0] to result[15]\n", size);
 278
 279        for (i=0; i<16; i++)
 280          printf(" %d,", vec_uc_result1[i]);
 281
 282        printf("\n\n");
 283 #else
 284        abort();
 285 #endif
 286      }
 287
 288 #ifdef __LITTLE_ENDIAN__
 289    vec_uc_expected1 = (vector unsigned char){ 2, 1, 0, 0, 0, 0, 0, 0,
 290                                               0, 0, 0, 0, 0, 0, 0, 0 };
 291 #else
 292    vec_uc_expected1 = (vector unsigned char){ 15, 16, 0, 0, 0, 0, 0, 0,
 293                                               0, 0, 0, 0, 0, 0, 0, 0 };
 294 #endif
 295    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 296                                            9, 10, 11, 12, 13, 14, 15, 16 };
 297    vec_uc_result1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 298                                             0, 0, 0, 0, 0, 0, 0, 0 };
 299
 300    size = 2;
 301
 302    address = &vec_uc_result1[0];
 303
 304    vec_xst_len_r(store_data_uc, address, size);
 305
 306    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 307      {
 308 #ifdef DEBUG
 309        printf("Error: result does not match expected result\n");
 310        printf("vec_xst_len_r(%d) vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 311               size);
 312
 313        for (i=0; i<16; i++)
 314          printf(" %d,", vec_uc_expected1[i]);
 315
 316        printf("\nvec_xst_len_r(%d) result[0] to result[15]\n", size);
 317
 318        for (i=0; i<16; i++)
 319          printf(" %d,", vec_uc_result1[i]);
 320
 321        printf("\n\n");
 322 #else
 323        abort();
 324 #endif
 325      }
 326
 327 #ifdef __LITTLE_ENDIAN__
 328    vec_uc_expected1 = (vector unsigned char){ 16, 15, 14, 13, 12, 11, 10, 9,
 329                                               8, 7, 6, 5, 4, 3, 2, 1 };
 330 #else
 331    vec_uc_expected1 = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 332                                               9, 10, 11, 12, 13, 14, 15, 16 };
 333 #endif
 334    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 335                                            9, 10, 11, 12, 13, 14, 15, 16 };
 336    vec_uc_result1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 337                                             0, 0, 0, 0, 0, 0, 0, 0 };
 338
 339    size = 16;
 340
 341    address = &vec_uc_result1[0];
 342
 343    vec_xst_len_r(store_data_uc, address, size);
 344
 345    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 346      {
 347 #ifdef DEBUG
 348        printf("Error: result does not match expected result\n");
 349        printf("vec_xst_len_r(%d) vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 350           size);
 351
 352        for (i=0; i<16; i++)
 353          printf(" %d,", vec_uc_expected1[i]);
 354
 355        printf("\nvec_xst_len_r(%d) result[0] to result[15]\n", size);
 356
 357        for (i=0; i<16; i++)
 358          printf(" %d,", vec_uc_result1[i]);
 359
 360        printf("\n\n");
 361 #else
 362        abort();
 363 #endif
 364      }
 365
 366 #ifdef __LITTLE_ENDIAN__
 367    vec_uc_expected1 = (vector unsigned char){ 14, 13, 12, 11, 10, 9, 8, 7,
 368                                               6, 5, 4, 3, 2, 1, 0, 0 };
 369 #else
 370    vec_uc_expected1 = (vector unsigned char){ 3, 4, 5, 6, 7, 8, 9, 10,
 371                                               11, 12, 13, 14, 15, 16, 0, 0 };
 372 #endif
 373    store_data_uc = (vector unsigned char){ 1, 2, 3, 4, 5, 6, 7, 8,
 374                                            9, 10, 11, 12, 13, 14, 15, 16 };
 375    vec_uc_result1 = (vector unsigned char){ 0, 0, 0, 0, 0, 0, 0, 0,
 376                                             0, 0, 0, 0, 0, 0, 0, 0 };
 377
 378    size = 14;
 379
 380    address = &vec_uc_result1[0];
 381
 382    vec_xst_len_r(store_data_uc, address, size);
 383
 384    if (result_wrong (vec_uc_expected1, vec_uc_result1))
 385      {
 386 #ifdef DEBUG
 387        printf("Error: result does not match expected result\n");
 388        printf("vec_xst_len_r(%d) vec_uc_expected1[0] to vec_uc_expected1[15]\n",
 389           size);
 390
 391        for (i=0; i<16; i++)
 392          printf(" %d,", vec_uc_expected1[i]);
 393
 394        printf("\nvec_xst_len_r(%d) result[0] to result[15]\n", size);
 395
 396        for (i=0; i<16; i++)
 397          printf(" %d,", vec_uc_result1[i]);
 398
 399        printf("\n\n");
 400 #else
 401        abort();
 402 #endif
 403      }
 404 }