diff --git a/ChangeLog b/ChangeLog
index 28124e5002..e090b45cfd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Apr 11 15:56:08 2003  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
+
+	* sample/test.rb: NaN comparison test.
+
 Fri Apr 11 15:37:43 2003  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* numeric.c (coerce_rescue): prevent inspected String from GC.
diff --git a/sample/test.rb b/sample/test.rb
index 3f9253b3ac..b41ac7c9c4 100644
--- a/sample/test.rb
+++ b/sample/test.rb
@@ -972,6 +972,28 @@ test_ok((-2.6).truncate == -2)
 test_ok(2.6.round == 3)
 test_ok((-2.4).truncate == -2)
 test_ok((13.4 % 1 - 0.4).abs < 0.0001)
+nan = 0.0/0
+def nan.test(v)
+  test_ok(self != v)
+  test_ok((self < v) == false)
+  test_ok((self > v) == false)
+  test_ok((self <= v) == false)
+  test_ok((self >= v) == false)
+end
+nan.test(nan)
+nan.test(0)
+nan.test(1)
+nan.test(-1)
+nan.test(1000)
+nan.test(-1000)
+nan.test(1_000_000_000_000)
+nan.test(-1_000_000_000_000)
+nan.test(100.0);
+nan.test(-100.0);
+nan.test(0.001);
+nan.test(-0.001);
+nan.test(1.0/0);
+nan.test(-1.0/0);
 
 test_check "bignum"
 def fact(n)