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