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