version 1.2, 2002/12/15 17:38:52
|
version 1.4, 2006/12/31 13:39:20
|
Line 1
|
Line 1
|
\ float wordset test suite |
\ float wordset test suite |
|
|
\ Copyright (C) 2002 Free Software Foundation, Inc. |
\ Copyright (C) 2002,2006 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 } |
|
|
|
|
{ 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 } |
|
|