(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
pr21921.c
       1  /* { dg-do compile } */
       2  /* { dg-options "-O1 -funsafe-math-optimizations" } */
       3  
       4  void
       5  Q (double *s, double h)
       6  {
       7    int i;
       8    if (h > 1)
       9      h = h - 1;
      10  
      11    for (i = 1; i < 3; i++)
      12      if (s[i] / h > 0)
      13        s[0] = h, s[i] = s[i] / h;
      14  }