2 /* { dg-options "-mavx512f -O2" } */
3 /* { dg-require-effective-target avx512f } */
6 #include "avx512f-check.h"
8 #define SIZE (128 / 64)
11 compute_scalefsd (double *s1
, double *s2
, double *r
)
13 r
[0] = s1
[0] * pow (2, floor (s2
[0]));
20 union128d res1
, s1
, s2
;
24 for (i
= 0; i
< SIZE
; i
++)
26 s1
.a
[i
] = 11.5 * (i
+ 1);
27 s2
.a
[i
] = 10.5 * (i
+ 1);
30 res1
.x
= _mm_scalef_sd (s1
.x
, s2
.x
);
32 compute_scalefsd (s1
.a
, s2
.a
, res_ref
);
34 if (check_union128d (res1
, res_ref
))