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_pdep (vector unsigned long long int source,
      10  	     vector unsigned long long int mask) {
      11    return vec_pdep (source, mask);
      12  }
      13  
      14  int
      15  vectors_equal (vector unsigned long long int a,
      16  	       vector unsigned long long int b)
      17  {
      18    return (a[0] == b[0]) && (a[1] == b[1]);
      19  }
      20  
      21  int
      22  main (int argc, char *argv [])
      23  {
      24    vector unsigned long long int source_a = { 0xa5f07e3cull, 0x7e3ca5f0ull };
      25    vector unsigned long long int source_b = { 0x3ca5f07eull, 0x5a0fe7c3ull };
      26  
      27    vector unsigned long long int mask_a = { 0xffff0000ull, 0x0000ffffull };
      28    vector unsigned long long int mask_b = { 0x0f0f0f0full, 0xf0f0f0f0ull };
      29  
      30    /* See pdepd-0.c for derivation of expected results.
      31  
      32       result_aa [0] is compute (source [0], mask [0];
      33       result_aa [1] is compute (source [1], mask [1].
      34  
      35       result_ab [0] is compute (source [0], mask [2];
      36       result_ab [1] is compute (source [1], mask [3].
      37  
      38       result_ba [0] is compute (source [2], mask [0];
      39       result_ba [1] is compute (source [3], mask [1].
      40  
      41       result_bb [0] is compute (source [2], mask [2];
      42       result_bb [1] is compute (source [3], mask [3].  */
      43  
      44    vector unsigned long long int result_aa = { 0x7e3c0000ull, 0x0000a5f0ull };
      45    vector unsigned long long int result_ab = { 0x070e030cull, 0xa050f000ull };
      46    vector unsigned long long int result_ba = { 0xf07e0000ull, 0x0000e7c3ull };
      47    vector unsigned long long int result_bb = { 0x0f00070eull, 0xe070c030ull };
      48  
      49    if (!vec_all_eq (do_vec_pdep (source_a, mask_a), result_aa))
      50      abort ();
      51    if (!vec_all_eq (do_vec_pdep (source_a, mask_b), result_ab))
      52      abort ();
      53    if (!vec_all_eq (do_vec_pdep (source_b, mask_a), result_ba))
      54      abort ();
      55    if (!vec_all_eq (do_vec_pdep (source_b, mask_b), result_bb))
      56      abort ();
      57  
      58    return 0;
      59  }
      60  
      61  /* { dg-final { scan-assembler {\mvpdepd\M} } } */