1  /* { dg-do run { target { power10_hw } } } */
       2  /* { dg-do link { target { ! power10_hw } } } */
       3  /* { dg-options "-mdejagnu-cpu=power10 -O2 -save-temps" } */
       4  /* { dg-require-effective-target power10_ok } */
       5  /* { dg-require-effective-target int128 } */
       6  
       7  /* Check that the expected 128-bit instructions are generated if the processor
       8     supports the 128-bit integer instructions. */
       9  /* { dg-final { scan-assembler-times {\mvextractbm\M} 1 } } */
      10  /* { dg-final { scan-assembler-times {\mvextracthm\M} 1 } } */
      11  /* { dg-final { scan-assembler-times {\mvextractwm\M} 1 } } */
      12  /* { dg-final { scan-assembler-times {\mvextractdm\M} 1 } } */
      13  /* { dg-final { scan-assembler-times {\mvextractqm\M} 1 } } */
      14  
      15  
      16  #define DEBUG 0
      17  
      18  #if DEBUG
      19  #include <stdio.h>
      20  #include <stdlib.h>
      21  #endif
      22  #include <altivec.h>
      23  
      24  void abort (void);
      25  
      26  int main ()
      27  {
      28    int i, num_elements;
      29    unsigned long long arg1;
      30    
      31    vector unsigned char  vbc_result_bi, vbc_expected_result_bi;
      32    vector unsigned short vbc_result_hi, vbc_expected_result_hi;
      33    vector unsigned int  vbc_result_wi, vbc_expected_result_wi;
      34    vector unsigned long long vbc_result_di, vbc_expected_result_di;
      35    vector __uint128_t vbc_result_qi, vbc_expected_result_qi;
      36  
      37    unsigned int result_wi, expected_result_wi;
      38    unsigned long long result, expected_result;
      39    const unsigned char mp=1;
      40    vector unsigned char vbc_bi_src;
      41    vector unsigned short vbc_hi_src;
      42    vector unsigned int vbc_wi_src;
      43    vector unsigned long long vbc_di_src;
      44    vector __uint128_t vbc_qi_src;
      45    
      46  /* vextractbm */
      47    num_elements = 8;
      48    vbc_bi_src[0] = 0xFF;
      49    vbc_bi_src[1] = 0xFF;
      50    vbc_bi_src[2] = 0x0;
      51    vbc_bi_src[3] = 0x0;
      52    vbc_bi_src[4] = 0x0;
      53    vbc_bi_src[5] = 0x0;
      54    vbc_bi_src[6] = 0xFF;
      55    vbc_bi_src[7] = 0xFF;
      56    vbc_bi_src[8] = 0xFF;
      57    vbc_bi_src[9] = 0xFF;
      58    vbc_bi_src[10] = 0xFF;
      59    vbc_bi_src[11] = 0xFF;
      60    vbc_bi_src[12] = 0xFF;
      61    vbc_bi_src[13] = 0x0;
      62    vbc_bi_src[14] = 0xFF;
      63    vbc_bi_src[15] = 0xFF;
      64  
      65    expected_result_wi = 0b1101111111000011;
      66  
      67    result_wi = vec_extractm (vbc_bi_src);
      68    
      69    if (result_wi != expected_result_wi) {
      70  #if DEBUG
      71      printf("ERROR: short vec_extractm(%d) ", vbc_bi_src);
      72      printf("result %llu does not match expected result = %llu\n",
      73  	   result, expected_result);
      74  #else
      75      abort();
      76  #endif
      77    }
      78  
      79      /* vextracthm */
      80    num_elements = 8;
      81    vbc_hi_src[0] = 0xFFFF;
      82    vbc_hi_src[1] = 0xFFFF;
      83    vbc_hi_src[2] = 0x0;
      84    vbc_hi_src[3] = 0x0;
      85    vbc_hi_src[4] = 0x0;
      86    vbc_hi_src[5] = 0x0;
      87    vbc_hi_src[6] = 0xFFFF;
      88    vbc_hi_src[7] = 0xFFFF;
      89  
      90    expected_result_wi = 0b11000011;
      91  
      92    result_wi = vec_extractm (vbc_hi_src);
      93    
      94    if (result_wi != expected_result_wi) {
      95  #if DEBUG
      96      printf("ERROR: short vec_extractm(%d) ", vbc_hi_src);
      97      printf("result %llu does not match expected result = %llu\n",
      98  	   result, expected_result);
      99  #else
     100      abort();
     101  #endif
     102    }
     103  
     104    /* vextractwm */
     105    num_elements = 4;
     106    vbc_wi_src[0] = 0xFFFFFFFF;
     107    vbc_wi_src[1] = 0xFFFFFFFF;
     108    vbc_wi_src[2] = 0x0;
     109    vbc_wi_src[3] = 0x0;
     110  
     111    expected_result_wi = 0b0011;
     112  
     113    result_wi = vec_extractm (vbc_wi_src);
     114    
     115    if (result_wi != expected_result_wi) {
     116  #if DEBUG
     117      printf("ERROR: word vec_extractm(%d) ", vbc_wi_src);
     118      printf("result %llu does not match expected result = %llu\n",
     119  	   result, expected_result);
     120  #else
     121      abort();
     122  #endif
     123    }
     124  
     125    /* vextractdm */
     126    num_elements = 2;
     127    vbc_di_src[0] = 0xFFFFFFFFFFFFFFFF;
     128    vbc_di_src[1] = 0xFFFFFFFFFFFFFFFF;
     129  
     130    expected_result_wi = 0b11;
     131  
     132    result_wi = vec_extractm (vbc_di_src);
     133    
     134    if (result_wi != expected_result_wi) {
     135  #if DEBUG
     136      printf("ERROR: double vec_extractm(%lld) ", vbc_di_src);
     137      printf("result %llu does not match expected result = %llu\n",
     138  	   result, expected_result);
     139  #else
     140      abort();
     141  #endif
     142    }
     143  
     144    /* vextractqm */
     145    num_elements = 1;
     146    vbc_qi_src[0] = 0x1;
     147    vbc_qi_src[0] = vbc_qi_src[0] << 127;
     148    
     149    expected_result_wi = 1;
     150  
     151    result_wi = vec_extractm (vbc_qi_src);
     152    
     153    if (result_wi != expected_result_wi) {
     154  #if DEBUG
     155      printf("ERROR: quad vec_extractm(arg) ");
     156      printf("result 0x%x does not match expected result = 0x%x\n",
     157  	   result, expected_result);
     158  #else
     159      abort();
     160  #endif
     161    }
     162  
     163    return 0;
     164  }