sdcc/support/regression/tests/gcc-torture-execute-20020720-1.c

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