1 /* Test the vmulx_lane_f32 AArch64 SIMD intrinsic.  */
2 
3 /* { dg-do run } */
4 /* { dg-options "-save-temps -O3" } */
5 
6 #include "arm_neon.h"
7 
8 extern void abort (void);
9 
10 float32x2_t __attribute__ ((noinline))
test_vmulx_lane0_f32(float32x2_t vec1_1,float32x2_t vec1_2)11 test_vmulx_lane0_f32 (float32x2_t vec1_1, float32x2_t vec1_2)
12 {
13   return vmulx_lane_f32 (vec1_1, vec1_2, 0);
14 }
15 
16 float32x2_t __attribute__ ((noinline))
test_vmulx_lane1_f32(float32x2_t vec1_1,float32x2_t vec1_2)17 test_vmulx_lane1_f32 (float32x2_t vec1_1, float32x2_t vec1_2)
18 {
19   return vmulx_lane_f32 (vec1_1, vec1_2, 1);
20 }
21 
22 void
test_case(float32_t v1[2],float32_t v2[2],float32_t e1[2],float32_t e2[2])23 test_case (float32_t v1[2], float32_t v2[2], float32_t e1[2], float32_t e2[2])
24 {
25   int i;
26   float32x2_t vec1_1 = vld1_f32 (v1);
27   float32x2_t vec1_2 = vld1_f32 (v2);
28 
29 
30   float32x2_t actual1 = test_vmulx_lane0_f32 (vec1_1, vec1_2);
31   float32_t actual1_1[2];
32   vst1_f32 (actual1_1, actual1);
33 
34   for (i = 0; i < 2; ++i)
35     if (actual1_1[i] != e1[i])
36       abort ();
37 
38   float32x2_t actual2 = test_vmulx_lane1_f32 (vec1_1, vec1_2);
39   float32_t actual2_1[2];
40   vst1_f32 (actual2_1, actual2);
41 
42   for (i = 0; i < 2; ++i)
43     if (actual2_1[i] != e2[i])
44       abort ();
45 }
46 
47 int
main(void)48 main (void)
49 {
50   float32_t v1 = 3.14159265359;
51   float32_t v2 = 1.383894;
52   float32_t v3 = -2.71828;
53   float32_t v4 = -3.4891931;
54 
55   float32_t v1_1[] = {v1, v2};
56   float32_t v1_2[] = {v3, v4};
57   float32_t e1_1[] = {v1 * v3, v2 * v3};
58   float32_t e1_2[] = {v1 * v4, v2 * v4};
59   test_case (v1_1, v1_2, e1_1, e1_2);
60 
61   float32_t v2_1[] = {0, -0.0};
62   float32_t v2_2[] = {__builtin_huge_valf (), -__builtin_huge_valf ()};
63   float32_t e2_1[] = {2.0, -2.0};
64   float32_t e2_2[] = {-2.0, 2.0};
65   test_case (v2_1, v2_2, e2_1, e2_2);
66 
67   return 0;
68 }
69 /* { dg-final { scan-assembler-times "fmulx\[ \t\]+\[vV\]\[0-9\]+\.2\[sS\], ?\[vV\]\[0-9\]+\.2\[sS\], ?\[vV\]\[0-9\]+\.\[sS\]\\\[0\\\]\n" 1 } } */
70 /* { dg-final { scan-assembler-times "fmulx\[ \t\]+\[vV\]\[0-9\]+\.2\[sS\], ?\[vV\]\[0-9\]+\.2\[sS\], ?\[vV\]\[0-9\]+\.\[sS\]\\\[1\\\]\n" 1 } } */
71