1 /*
2    20020720-1.c from the execute part of the gcc torture suite.
3  */
4 
5 #include <testfwk.h>
6 
7 #ifdef __SDCC
8 #pragma std_c99
9 #endif
10 
11 #if 0 // TODO: Enable when fabs is supported!
12 
13 /* Copyright (C) 2002  Free Software Foundation.
14 
15    Ensure that fabs(x) < 0.0 optimization is working.
16 
17    Written by Roger Sayle, 20th July 2002.  */
18 
19 extern double fabs (double);
20 extern void link_error (void);
21 
22 void
23 foo (double x)
24 {
25   double p, q;
26 
27   p = fabs (x);
28   q = 0.0;
29   if (p < q)
30     link_error ();
31 }
32 #endif
33 void
testTortureExecute(void)34 testTortureExecute (void)
35 {
36 #if 0
37   foo (1.0);
38   return;
39 #endif
40 }
41 
42 void
link_error()43 link_error ()
44 {
45   ASSERT (0);
46 }
47 
48