1/* { dg-do run } */ 2/* { dg-options "-O2 -mavx512f" } */ 3/* { dg-require-effective-target avx512f } */ 4 5#define AVX512F 6 7#include "avx512f-helper.h" 8 9#define SIZE (AVX512F_LEN / 64) 10#include "avx512f-mask-type.h" 11 12void static 13CALC (double *s1, double *s2, double *r) 14{ 15 int i; 16 17 for (i = 0; i < SIZE / 2; i++) 18 { 19 r[2 * i] = s1[2 * i + 1]; 20 r[2 * i + 1] = s2[2 * i + 1]; 21 } 22} 23 24void 25TEST (void) 26{ 27 UNION_TYPE (AVX512F_LEN, d) s1, s2, res1, res2, res3; 28 MASK_TYPE mask = MASK_VALUE; 29 double res_ref[SIZE]; 30 int i; 31 32 for (i = 0; i < SIZE; i++) 33 { 34 s1.a[i] = i * 123.2 + 32.6; 35 s2.a[i] = i + 2.5; 36 res2.a[i] = DEFAULT_VALUE; 37 } 38 39 res1.x = INTRINSIC (_unpackhi_pd) (s1.x, s2.x); 40 res2.x = INTRINSIC (_mask_unpackhi_pd) (res2.x, mask, s1.x, s2.x); 41 res3.x = INTRINSIC (_maskz_unpackhi_pd) (mask, s1.x, s2.x); 42 43 CALC (s1.a, s2.a, res_ref); 44 45 if (UNION_CHECK (AVX512F_LEN, d) (res1, res_ref)) 46 abort (); 47 48 MASK_MERGE (d) (res_ref, mask, SIZE); 49 if (UNION_CHECK (AVX512F_LEN, d) (res2, res_ref)) 50 abort (); 51 52 MASK_ZERO (d) (res_ref, mask, SIZE); 53 if (UNION_CHECK (AVX512F_LEN, d) (res3, res_ref)) 54 abort (); 55} 56