(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
pr46728-9.c
       1  /* { dg-do run } */
       2  /* { dg-options "-O2 -ffast-math -fno-inline -fno-unroll-loops -lm" } */
       3  
       4  #include <math.h>
       5  
       6  extern void abort (void);
       7  
       8  #define NVALS 6
       9  
      10  static double
      11  convert_it (double x)
      12  {
      13    return pow (x, 0.5);
      14  }
      15  
      16  int
      17  main (int argc, char *argv[])
      18  {
      19    double values[NVALS] = { 3.0, 1.95, 2.227, 4.0, 256.0, .0008797 };
      20    double PREC = 0.999999;
      21    unsigned i;
      22  
      23    for (i = 0; i < NVALS; i++)
      24      if (fabs (convert_it (values[i]) / sqrt (values[i])) < PREC)
      25        abort ();
      26  
      27    return 0;
      28  }
      29