gforth/test/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth / test

version 1.1, 2002/11/02 15:26:04	version 1.6, 2007/12/31 17:34:59
Line 1	Line 1
\ float wordset test suite	\ float wordset test suite

\ Copyright (C) 2002 Free Software Foundation, Inc.	\ Copyright (C) 2002,2006,2007 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 42 decimal	Line 42 decimal
{ -4503599627370495. d>f 0.5e f+ fround -4503599627370494. d>f f= -> true }	{ -4503599627370495. d>f 0.5e f+ fround -4503599627370494. d>f f= -> true }
{ -4503599627370497. d>f fdup fround f= -> true }	{ -4503599627370497. d>f fdup fround f= -> true }
{ -9007199254740991. d>f fdup fround f= -> true }	{ -9007199254740991. d>f fdup fround 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 }
	{ s" 2e+3e" >float -> false }
	{ s" 2+3" >float -> 2000e true }