--- gforth/test/gforth.fs	2004/12/08 11:56:31	1.3
+++ gforth/test/gforth.fs	2005/12/31 15:46:14	1.8
@@ -1,6 +1,6 @@
 \ test some gforth extension words
 
-\ Copyright (C) 2003 Free Software Foundation, Inc.
+\ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -40,3 +40,12 @@ decimal
 36 base !
 { 0x10 -> x10 }
 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 }