1  /* { dg-do compile } */
       2  /* { dg-options "-O2 -ffp-contract=off -mavx2 -mfma" } */
       3  
       4  void cscal(int n, float da_r, float *x)
       5  {
       6    for (int i = 0; i < n; i += 4)
       7      {
       8        float temp0  =  da_r * x[i]   - x[i+1];
       9        float temp1  =  da_r * x[i+2] - x[i+3];
      10        x[i+1]       =  da_r * x[i+1] + x[i];
      11        x[i+3]       =  da_r * x[i+3] + x[i+2];
      12        x[i]         =  temp0;
      13        x[i+2]       =  temp1;
      14      }
      15  }
      16  
      17  /* { dg-final { scan-assembler-not "fma" } } */