(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.target/
powerpc/
vec-cntlzm-0.c
       1  /* { dg-do compile } */
       2  /* { dg-options "-mdejagnu-cpu=power10" } */
       3  
       4  #include <altivec.h>
       5  
       6  extern void abort (void);
       7  
       8  vector unsigned long long int
       9  do_vec_cntlzm (vector unsigned long long int source,
      10  	     vector unsigned long long int mask)
      11  {
      12    return vec_cntlzm (source, mask);
      13  }
      14  
      15  int main (int argc, char *argv [])
      16  {
      17    vector unsigned long long int source_a = { 0xa5f07e3cull, 0x7e3ca5f0ull };
      18    vector unsigned long long int source_b = { 0x3ca5f07eull, 0x5a0fe7c3ull };
      19  
      20    vector unsigned long long int mask_a = { 0xffff0000ull, 0x0000ffffull };
      21    vector unsigned long long int mask_b = { 0x0f0f0f0full, 0xf0f0f0f0ull };
      22  
      23    /* See cntlzdm-0.c for derivation of expected results.
      24  
      25       result_aa [0] is compute (source [0], mask [0];
      26       result_aa [1] is compute (source [1], mask [1].
      27  
      28       result_ab [0] is compute (source [0], mask [2];
      29       result_ab [1] is compute (source [1], mask [3].
      30  
      31       result_ba [0] is compute (source [2], mask [0];
      32       result_ba [1] is compute (source [3], mask [1].
      33  
      34       result_bb [0] is compute (source [2], mask [2];
      35       result_bb [1] is compute (source [3], mask [3].  */
      36  
      37    vector unsigned long long int result_aa = { 0, 0 };
      38    vector unsigned long long int result_ab = { 1, 1 };
      39    vector unsigned long long int result_ba = { 2, 0 };
      40    vector unsigned long long int result_bb = { 0, 1 };
      41  
      42    if (!vec_all_eq (do_vec_cntlzm (source_a, mask_a), result_aa))
      43      abort ();
      44    if (!vec_all_eq (do_vec_cntlzm (source_a, mask_b), result_ab))
      45      abort ();
      46    if (!vec_all_eq (do_vec_cntlzm (source_b, mask_a), result_ba))
      47      abort ();
      48    if (!vec_all_eq (do_vec_cntlzm (source_b, mask_b), result_bb))
      49      abort ();
      50  
      51    return 0;
      52  }
      53  
      54  /* { dg-final { scan-assembler {\mvclzdm\M} } } */