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