2 /* { dg-options "-O2 -mavx512f -std=gnu99" } */
3 /* { dg-require-effective-target avx512f } */
4 /* { dg-require-effective-target c99_runtime } */
8 #include "avx512f-helper.h"
10 #define SIZE (AVX512F_LEN / 64)
11 #include "avx512f-mask-type.h"
16 CALC (double *r
, double src
, long long tbl
)
27 *r
= signbit (src
) ? -NAN
: NAN
;
39 *r
= signbit (src
) ? -INFINITY
: INFINITY
;
77 UNION_TYPE (AVX512F_LEN
, d
) res1
, res2
, res3
, s1
;
78 UNION_TYPE (AVX512F_LEN
, i_q
) s2
;
82 float vals
[2] = { -10, 10 };
83 int controls
[8] = {0x11111111, 0x77777777, 0x77777777, 0x88888888,
84 0x99999999, 0xaaaaaaaa, 0xbbbbbbbb, 0xcccccccc};
86 MASK_TYPE mask
= MASK_VALUE
;
88 for (i
= 0; i
< 2; i
++)
90 for (j
= 0; j
< SIZE
; j
++)
93 s2
.a
[j
] = controls
[j
];
94 res1
.a
[j
] = DEFAULT_VALUE
;
95 res2
.a
[j
] = DEFAULT_VALUE
;
96 res3
.a
[j
] = DEFAULT_VALUE
;
98 CALC (&res_ref
[j
], s1
.a
[j
], s2
.a
[j
]);
101 res1
.x
= INTRINSIC (_fixupimm_pd
) (res1
.x
, s1
.x
, s2
.x
, 0);
102 res2
.x
= INTRINSIC (_mask_fixupimm_pd
) (res2
.x
, mask
, s1
.x
, s2
.x
, 0);
103 res3
.x
= INTRINSIC (_maskz_fixupimm_pd
) (mask
, res3
.x
, s1
.x
, s2
.x
, 0);
105 if (UNION_CHECK (AVX512F_LEN
, d
) (res1
, res_ref
))
108 MASK_MERGE(d
) (res_ref
, mask
, SIZE
);
109 if (UNION_CHECK (AVX512F_LEN
, d
) (res2
, res_ref
))
111 MASK_ZERO(d
) (res_ref
, mask
, SIZE
);
112 if (UNION_CHECK (AVX512F_LEN
, d
) (res3
, res_ref
))