git.gag.com Git - fw/sdcc/blob - support/regression/tests/bug1520966.c

   1 /* bug1520966 "Floating-point bug with small numbers"\r
   2  */\r
   3 \r
   4 #include <testfwk.h>\r
   5 #include <math.h>\r
   6 \r
   7 void\r
   8 testFloatOp(void)\r
   9 {\r
  10     volatile float a,b;\r
  11     float result;\r
  12 \r
  13     a = 2.04e-38;\r
  14     b = 0.01;\r
  15     result = a * b;\r
  16     ASSERT( result < a );\r
  17     ASSERT( result >= 0.0 );\r
  18 \r
  19     b = 100;\r
  20     result = a / b;\r
  21     ASSERT( result < a );\r
  22     ASSERT( result >= 0.0 );\r
  23 }\r