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  #define ALIGN ((AVX512F_LEN) / 8)
      12  
      13  void
      14  TEST (void)
      15  {
      16    UNION_TYPE (AVX512F_LEN, d) s2, s3, res1, res3, res4, res5, res6;
      17    MASK_TYPE mask = MASK_VALUE;
      18    double s1[SIZE] __attribute__ ((aligned (ALIGN)));
      19    double res2[SIZE] __attribute__ ((aligned (ALIGN)));
      20    double res7[SIZE] __attribute__ ((aligned (ALIGN)));
      21    int i, sign = 1;
      22  
      23    for (i = 0; i < SIZE; i++)
      24      {
      25        s1[i] = 12.34 * (i + 2000) * sign;
      26        s2.a[i] = 56.78 * (i - 30) * sign;
      27        s3.a[i] = 90.12 * (i + 40) * sign;
      28        res3.a[i] = DEFAULT_VALUE;
      29        res5.a[i] = DEFAULT_VALUE;
      30        res7[i] = DEFAULT_VALUE;
      31        sign = -sign;
      32      }
      33  
      34  #if AVX512F_LEN == 512
      35    res1.x = INTRINSIC (_load_pd) (s1);
      36    INTRINSIC (_store_pd) (res2, s2.x);
      37  #endif
      38    res3.x = INTRINSIC (_mask_mov_pd) (res3.x, mask, s3.x);
      39    res4.x = INTRINSIC (_maskz_mov_pd) (mask, s3.x);
      40    res5.x = INTRINSIC (_mask_load_pd) (res5.x, mask, s1);
      41    res6.x = INTRINSIC (_maskz_load_pd) (mask, s1);
      42    INTRINSIC (_mask_store_pd) (res7, mask, s2.x);
      43  
      44  #if AVX512F_LEN == 512
      45    if (UNION_CHECK (AVX512F_LEN, d) (res1, s1))
      46      abort ();
      47  
      48    if (UNION_CHECK (AVX512F_LEN, d) (s2, res2))
      49      abort ();
      50  #endif
      51  
      52    MASK_MERGE (d) (s3.a, mask, SIZE);
      53    if (checkVd (res3.a, s3.a, SIZE))
      54      abort ();
      55  
      56    MASK_ZERO (d) (s3.a, mask, SIZE);
      57    if (checkVd (res4.a, s3.a, SIZE))
      58      abort ();
      59  
      60    MASK_MERGE (d) (s1, mask, SIZE);
      61    if (UNION_CHECK (AVX512F_LEN, d) (res5, s1))
      62      abort ();
      63  
      64    MASK_ZERO (d) (s1, mask, SIZE);
      65    if (UNION_CHECK (AVX512F_LEN, d) (res6, s1))
      66      abort ();
      67  
      68    MASK_MERGE (d) (s2.a, mask, SIZE);
      69    if (UNION_CHECK (AVX512F_LEN, d) (s2, res7))
      70      abort ();
      71  }