--- gforth/test/float.fs	2002/11/02 15:26:04	1.1
+++ gforth/test/float.fs	2007/08/19 15:04:08	1.5
@@ -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,3 +42,11 @@ 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 }
+
+\ >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 }