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

   1 /*
   2    930614-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 #pragma disable_warning 93
  10 #pragma disable_warning 85
  11 #endif
  12
  13 void f (double *ty)
  14 {
  15   *ty = -1.0;
  16 }
  17
  18 void
  19 testTortureExecute (void)
  20 {
  21 #ifndef __SDCC_pdk14 // Lack of memory
  22   double foo[6];
  23   double tx = 0.0, ty, d;
  24
  25   f (&ty);
  26
  27   if (ty < 0)
  28     ty = -ty;
  29   d = (tx > ty) ? tx : ty;
  30   if (ty != d)
  31     ASSERT (0);
  32   return;
  33 #endif
  34 }
  35