2 /* { dg-options "-O2 -mavx512f" } */
3 /* { dg-require-effective-target avx512f } */
7 #include "avx512f-helper.h"
9 #define SIZE (AVX512F_LEN / 64)
10 #include "avx512f-mask-type.h"
13 CALC (double *i1
, double *r
)
17 for (i
= 0; i
< SIZE
; i
++)
29 UNION_TYPE (AVX512F_LEN
, d
) s
, d
, dm
;
30 MASK_TYPE mask
= MASK_VALUE
;
32 for (i
= 0; i
< SIZE
; i
++)
34 s
.a
[i
] = i
* ((i
& 1) ? 3.5 : -7.5);
35 d
.a
[i
] = DEFAULT_VALUE
;
36 dm
.a
[i
] = DEFAULT_VALUE
;
41 d
.x
= INTRINSIC (_abs_pd
) (s
.x
);
42 dm
.x
= INTRINSIC (_mask_abs_pd
) (dm
.x
, mask
, s
.x
);
44 if (UNION_CHECK (AVX512F_LEN
, d
) (d
, ck
))
47 MASK_MERGE (d
) (ck
, mask
, SIZE
);
48 if (UNION_CHECK (AVX512F_LEN
, d
) (dm
, ck
))