21 lines
775 B
C
21 lines
775 B
C
|
/* { dg-do compile } */
|
||
|
|
/* { dg-require-effective-target powerpc_p8vector_ok } */
|
||
|
|
/* { dg-options "-O2 -ftree-vectorize -mdejagnu-cpu=power8 -ffast-math -fvect-cost-model=unlimited" } */
|
||
|
|
|
||
|
|
/* This tests special handling for various uses of xxpermdi, other than
|
||
|
|
to perform doubleword swaps. */
|
||
|
|
|
||
|
|
void foo (_Complex double *self, _Complex double *a, _Complex double *b,
|
||
|
|
int a1, int a2)
|
||
|
|
{
|
||
|
|
int i, j;
|
||
|
|
for (i = 0; i < a1; ++i)
|
||
|
|
for (j = 0; j < a2; ++j)
|
||
|
|
self[i] = self[i] + a[i,j] * b[j];
|
||
|
|
}
|
||
|
|
|
||
|
|
/* { dg-final { scan-assembler-times "xxpermdi .*,.*,.*,0" 1 } } */
|
||
|
|
/* { dg-final { scan-assembler-times "xxpermdi .*,.*,.*,1" 1 } } */
|
||
|
|
/* { dg-final { scan-assembler-times "xxpermdi .*,.*,.*,2" 1 } } */
|
||
|
|
/* { dg-final { scan-assembler-times "xxpermdi .*,.*,.*,3" 1 } } */
|