1  /* { dg-do compile } */
       2  /* { dg-options "-Ofast -mno-avx512er -march=skylake-avx512" } */
       3  
       4  #include <math.h>
       5  
       6  double square(double d[3], double rad)
       7  {
       8    double res[3];
       9  
      10    for (int i = 0; i < 3; i++)
      11      {
      12        res[i] = d[i] * d[i];
      13        res[i] *= rad/sqrt(res[i]);
      14      }
      15  
      16    return res[0];
      17  }