--- gforth/test/float.fs	2002/12/15 17:38:52	1.2
+++ gforth/test/float.fs	2006/12/31 13:39:20	1.4
@@ -1,6 +1,6 @@
 \ 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.
 
@@ -42,4 +42,10 @@ 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 }
\ No newline at end of file
+{ 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 }
+