Viewing file:  pextd-1.c (1.38 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
/* { dg-do run { target { power10_hw } } } */
/* { dg-do link { target { ! power10_hw } } } */
/* { dg-require-effective-target power10_ok } */
/* { dg-require-effective-target lp64 } */
/* { dg-options "-mdejagnu-cpu=power10" } */
extern void abort (void);
unsigned long long int
do_pextd (unsigned long long int source, unsigned long long int mask) {
return __builtin_pextd (source, mask);
}
int main (int argc, char *argv [])
{
unsigned long long int sources [4], masks [4];
unsigned long long int results [4][4] = {
/* sources [0] with each of masks [0..3] */
{ 0x0000a5f0ll, 0x00007e3cll, 0x000050ecll, 0x0000af73ll },
/* sources [1] with each of masks [0..3] */
{ 0x00007e3cll, 0x0000a5f0ll, 0x0000ec50ll, 0x000073afll },
/* sources [2] with each of masks [0..3] */
{ 0x00003ca5ll, 0x0000f07ell, 0x0000c50ell, 0x00003af7ll },
/* sources [3] with each of masks [0..3] */
{ 0x00005a0fll, 0x0000e7c3ll, 0x0000af73ll, 0x000050ecll },
};
sources[0] = 0xa5f07e3cll;
sources[1] = 0x7e3ca5f0ll;
sources[2] = 0x3ca5f07ell;
sources[3] = 0x5a0fe7c3ll;
masks[0] = 0xffff0000ll;
masks[1] = 0x0000ffffll;
masks[2] = 0x0f0f0f0fll;
masks[3] = 0xf0f0f0f0ll;
unsigned long long int result;
for (int i = 0; i < 4; i++)
{
for (int j = 0; j < 4; j++)
{
if (do_pextd (sources[i], masks[j]) != results [i][j])
abort ();
}
}
return 0;
}
|
