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