blob: d235a535c41b4a53a7a4300a46ba1e5ce7c40d11 [file] [log] [blame]
/* { dg-do run { target { power10_hw } } } */
/* { dg-do link { target { ! power10_hw } } } */
/* { dg-require-effective-target power10_ok } */
/* { dg-options "-mdejagnu-cpu=power10" } */
#include <altivec.h>
extern void abort (void);
/* Vector string isolate left-justified on array of signed short. */
int
silj_p (vector signed short arg)
{
return vec_stril_p (arg);
}
int main (int argc, short *argv [])
{
vector signed short input1 =
{ 0x1, 0x3, 0x5, 0x7, 0x9, 0xb, 0xd, 0xf };
vector signed short input2 =
{ 0x1, 0x0, 0x5, 0x7, 0x9, 0xb, 0xd, 0xf };
vector signed short input3 =
{ 0x1, 0x0, 0x5, 0x7, 0x9, 0xb, 0xd, 0x0 };
vector signed short input4 =
{ 0x1, 0x3, 0x5, 0x7, 0x9, 0xb, 0xd, 0x0 };
if (silj_p (input1))
abort ();
if (!silj_p (input2))
abort ();
if (!silj_p (input3))
abort ();
if (!silj_p (input4))
abort ();
}