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