(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.target/
i386/
bmi2-pext64-1.c
       1  /* { dg-do run { target { bmi2 && { ! ia32 } } } } */
       2  /* { dg-options "-mbmi2 -O2" } */
       3  
       4  #include <x86intrin.h>
       5  #include "bmi2-check.h"
       6  
       7  __attribute__((noinline))
       8  unsigned long long
       9  calc_pext_u64 (unsigned long long a, unsigned long long mask)
      10  {
      11    unsigned long long res = 0;
      12    int i, k = 0;
      13  
      14    for (i = 0; i < 64; ++i)
      15      if (mask & (1LL << i)) {
      16        res |= ((a & (1LL << i)) >> i) << k;
      17        ++k;
      18      }
      19  
      20    return res;
      21  }
      22  
      23  static void
      24  bmi2_test ()
      25  {
      26    unsigned long long i;
      27    unsigned long long src = 0xce7acce7acce7ac;
      28    unsigned long long res, res_ref;
      29  
      30    for (i = 0; i < 5; ++i) {
      31      src = src * (i + 1);
      32  
      33      res_ref = calc_pext_u64 (src, ~(i * 3));
      34      res = _pext_u64 (src, ~(i * 3));
      35  
      36      if (res != res_ref)
      37        abort();
      38    }
      39  }