gforth/test/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth / test

-version 1.2, 2002/12/15 17:38:52
+version 1.3, 2006/01/15 19:50:26
  Line 42  decimal
  { -4503599627370495. d>f  0.5e f+ fround -4503599627370494. d>f f= -> true }
  { -4503599627370497. d>f fdup fround f= -> true }
  { -9007199254740991. d>f fdup fround f= -> true }
- { 1.49999e fround 1e f= -> true }
+ { 1.49999e fround 1e f= -> true }
+ \ >float (very incomplete, just a regression test)
+ { s" -" >float -> false }
+ { s" +" >float -> false }
+ { s"   " >float 0e f= -> true true }