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)34testTortureExecute (void) 35 { 36 #if 0 37 foo (1.0); 38 return; 39 #endif 40 } 41 42 void link_error()43link_error () 44 { 45 ASSERT (0); 46 } 47 48