gcc/testsuite/gcc.c-torture/execute/20020720-1.c

   1 /* Copyright (C) 2002  Free Software Foundation.
   2
   3    Ensure that fabs(x) < 0.0 optimization is working.
   4
   5    Written by Roger Sayle, 20th July 2002.  */
   6
   7 extern void abort (void);
   8 extern double fabs (double);
   9 extern void link_error (void);
  10
  11 void
  12 foo (double x)
  13 {
  14   double p, q;
  15
  16   p = fabs (x);
  17   q = 0.0;
  18   if (p < q)
  19     link_error ();
  20 }
  21
  22 int
  23 main()
  24 {
  25   foo (1.0);
  26   return 0;
  27 }
  28
  29 #ifndef __OPTIMIZE__
  30 void
  31 link_error ()
  32 {
  33   abort ();
  34 }
  35 #endif
  36