--- gforth/test/float.fs	2002/11/02 15:26:04	1.1
+++ gforth/test/float.fs	2006/01/15 19:50:26	1.3
@@ -42,3 +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 }
+
+\ >float (very incomplete, just a regression test)
+{ s" -" >float -> false }
+{ s" +" >float -> false }
+{ s"   " >float 0e f= -> true true }
+