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

   1 /*
   2    990829-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 #endif
  11
  12 #if !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15) // Lack of memory
  13 double test (const double le, const double ri)
  14 {
  15         double val = ( ri - le ) / ( ri * ( le + 1.0 ) );
  16         return val;
  17 }
  18 #endif
  19
  20 void
  21 testTortureExecute (void)
  22 {
  23 #if !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15) // Lack of memory
  24         double retval;
  25
  26         retval = test(1.0,2.0);
  27         if (retval < 0.24 || retval > 0.26)
  28           ASSERT (0);
  29         return;
  30 #endif
  31 }
  32