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