--- gforth/test/gforth.fs	2004/12/08 12:47:30	1.4
+++ gforth/test/gforth.fs	2005/09/12 08:50:20	1.7
@@ -1,6 +1,6 @@
 \ test some gforth extension words
 
-\ Copyright (C) 2003 Free Software Foundation, Inc.
+\ Copyright (C) 2003,2004 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -42,3 +42,10 @@ decimal
 decimal
 { 'a' -> 97 }
 { 'A  -> 65 }
+{ 1. '1 -> 1. 49 }
+
+\ represent has no trailing 0s even for inf and nan
+
+{  1e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }
+{  0e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }
+{ -1e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }