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
foo(double x)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
main()23 main()
24 {
25   foo (1.0);
26   return 0;
27 }
28 
29 #ifndef __OPTIMIZE__
30 void
link_error()31 link_error ()
32 {
33   abort ();
34 }
35 #endif
36 
37