1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
/* { 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 right-justified on array of signed short. */
vector signed short
sirj (vector signed short arg)
{
return vec_strir (arg);
}
int main (int argc, short *argv [])
{
vector signed short input1 =
{ 0x1, 0x3, 0x5, 0x7, 0x9, 0xb, 0xd, 0xf };
vector signed short expected1 =
{ 0x1, 0x3, 0x5, 0x7, 0x9, 0xb, 0xd, 0xf };
vector signed short input2 =
{ 0x1, 0x0, 0x5, 0x7, 0x9, 0xb, 0xd, 0xf };
vector signed short expected2 =
{ 0x0, 0x0, 0x5, 0x7, 0x9, 0xb, 0xd, 0xf };
vector signed short input3 =
{ 0x1, 0x0, 0x5, 0x7, 0x9, 0xb, 0xd, 0x0 };
vector signed short expected3 =
{ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0 };
vector signed short input4 =
{ 0x1, 0x3, 0x5, 0x7, 0x9, 0xb, 0xd, 0x0 };
vector signed short expected4 =
{ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0 };
if (!vec_all_eq (sirj (input1), expected1))
abort ();
if (!vec_all_eq (sirj (input2), expected2))
abort ();
if (!vec_all_eq (sirj (input3), expected3))
abort ();
if (!vec_all_eq (sirj (input4), expected4))
abort ();
}
|
