1 /* { dg-do run } */
2 /* { dg-options "-O3 -fno-inline" } */
3 
4 #include <arm_neon.h>
5 
6 extern void abort (void);
7 
8 #define VARIANTS(VARIANT)			\
9 VARIANT (uint8_t, , 8, uint8x8_t, _u8, 5)	\
10 VARIANT (uint16_t, , 4, uint16x4_t, _u16, 3)	\
11 VARIANT (uint32_t, , 2, uint32x2_t, _u32, 1)	\
12 VARIANT (uint64_t, , 1, uint64x1_t, _u64, 0)	\
13 VARIANT (int8_t, , 8, int8x8_t, _s8, 6)		\
14 VARIANT (int16_t, , 4, int16x4_t, _s16, 2)	\
15 VARIANT (int32_t, , 2, int32x2_t, _s32, 0)	\
16 VARIANT (int64_t, , 1, int64x1_t, _s64, 0)	\
17 VARIANT (poly8_t, , 8, poly8x8_t, _p8, 6)	\
18 VARIANT (poly16_t, , 4, poly16x4_t, _p16, 2)	\
19 VARIANT (float16_t, , 4, float16x4_t, _f16, 3)	\
20 VARIANT (float32_t, , 2, float32x2_t, _f32, 1)	\
21 VARIANT (float64_t, , 1, float64x1_t, _f64, 0)	\
22 VARIANT (uint8_t, q, 16, uint8x16_t, _u8, 11)	\
23 VARIANT (uint16_t, q, 8, uint16x8_t, _u16, 7)	\
24 VARIANT (uint32_t, q, 4, uint32x4_t, _u32, 2)	\
25 VARIANT (uint64_t, q, 2, uint64x2_t, _u64, 1)	\
26 VARIANT (int8_t, q, 16, int8x16_t, _s8, 13)	\
27 VARIANT (int16_t, q, 8, int16x8_t, _s16, 5)	\
28 VARIANT (int32_t, q, 4, int32x4_t, _s32, 3)	\
29 VARIANT (int64_t, q, 2, int64x2_t, _s64, 0)	\
30 VARIANT (poly8_t, q, 16, poly8x16_t, _p8, 14)	\
31 VARIANT (poly16_t, q, 8, poly16x8_t, _p16, 6)	\
32 VARIANT (float16_t, q, 8, float16x8_t, _f16, 6)	\
33 VARIANT (float32_t, q, 4, float32x4_t, _f32, 2) \
34 VARIANT (float64_t, q, 2, float64x2_t, _f64, 1)
35 
36 #define TESTMETH(BASETYPE, Q, NUM, TYPE, SUFFIX, INDEX)	\
37 int							\
38 test_vset_lane ##Q##SUFFIX (BASETYPE *data)		\
39 {							\
40   BASETYPE temp [NUM];					\
41   TYPE vec = vld1##Q##SUFFIX (data);			\
42   TYPE vec2;						\
43   BASETYPE changed = data[INDEX] - INDEX;		\
44   int check;						\
45   vec = vset##Q##_lane##SUFFIX (changed, vec, INDEX);	\
46   asm volatile ("orr %0.16b, %1.16b, %1.16b"		\
47 		: "=w"(vec2) : "w" (vec) : );		\
48   vst1##Q##SUFFIX (temp, vec2);				\
49   for (check = 0; check < NUM; check++)			\
50     {							\
51       BASETYPE desired = data[check];			\
52       if (check==INDEX) desired = changed;		\
53       if (temp[check] != desired)			\
54         return 1;					\
55     }							\
56   return 0;						\
57 }
58 
VARIANTS(TESTMETH)59 VARIANTS (TESTMETH)
60 
61 #define CHECK(BASETYPE, Q, NUM, TYPE, SUFFIX, INDEX)		\
62   if (test_vset_lane##Q##SUFFIX (BASETYPE ## _ ## data) != 0)	\
63     abort ();
64 
65 int
66 main (int argc, char **argv)
67 {
68   uint8_t uint8_t_data[16] =
69       { 1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47 };
70   uint16_t uint16_t_data[8] = { 1, 22, 333, 4444, 55555, 6666, 777, 88 };
71   uint32_t uint32_t_data[4] = { 65537, 11, 70000, 23 };
72   uint64_t uint64_t_data[2] = { 0xdeadbeefcafebabeULL, 0x0123456789abcdefULL };
73   int8_t int8_t_data[16] =
74       { -1, -3, -5, -7, 9, -11, -13, 15, -17, -19, 21, -23, 25, 27, -29, -31 };
75   int16_t int16_t_data[8] = { -17, 19, 3, -999, 44048, 505, 9999, 1000};
76   int32_t int32_t_data[4] = { 123456789, -987654321, -135792468, 975318642 };
77   int64_t int64_t_data[2] = {0xfedcba9876543210LL, 0xdeadbabecafebeefLL };
78   poly8_t poly8_t_data[16] =
79       { 0, 7, 13, 18, 22, 25, 27, 28, 29, 31, 34, 38, 43, 49, 56, 64 };
80   poly16_t poly16_t_data[8] = { 11111, 2222, 333, 44, 5, 65432, 54321, 43210 };
81   float16_t float16_t_data[8] = { 1.25, 4.5, 7.875, 2.3125, 5.675, 8.875,
82       3.6875, 6.75};
83 
84   float32_t float32_t_data[4] = { 3.14159, 2.718, 1.414, 100.0 };
85   float64_t float64_t_data[2] = { 1.01001000100001, 12345.6789 };
86 
87   VARIANTS (CHECK);
88 
89   return 0;
90 }
91