--- gforth/test/gforth.fs	2007/12/31 18:40:26	1.15
+++ gforth/test/gforth.fs	2009/09/25 18:52:29	1.16
@@ -87,3 +87,11 @@ decimal
 
 { -5 try-test3 -> 10 }
 {  5 try-test3 ->  6 }
+
+\ fcopysign
+
+t{  5e  1e fcopysign ->  5e }t
+t{ -5e  1e fcopysign ->  5e }t
+t{  5e -1e fcopysign -> -5e }t
+t{ -5e -1e fcopysign -> -5e }t
+\ tests involving -0e?