PR inline-asm/84742
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 20020720-1.c
blobc70bc748a2290a2072c1fffeb1b6f72ee24e7826
1 /* Copyright (C) 2002 Free Software Foundation.
3 Ensure that fabs(x) < 0.0 optimization is working.
5 Written by Roger Sayle, 20th July 2002. */
7 extern void abort (void);
8 extern double fabs (double);
9 extern void link_error (void);
11 void
12 foo (double x)
14 double p, q;
16 p = fabs (x);
17 q = 0.0;
18 if (p < q)
19 link_error ();
22 int
23 main()
25 foo (1.0);
26 return 0;
29 #ifndef __OPTIMIZE__
30 void
31 link_error ()
33 abort ();
35 #endif