Index: t/op/arithmetics.t
===================================================================
--- t/op/arithmetics.t	(revision 36952)
+++ t/op/arithmetics.t	(working copy)
@@ -359,6 +359,19 @@
 -124
 OUTPUT
 
+pasm_output_is( <<'CODE', <<OUTPUT, "rounding NaN gives NaN" );
+       set N0, 'NaN'
+       floor N0
+       say N0
+       set N1, 'NaN'
+       ceil N1
+       say N1
+CODE
+NaN
+NaN
+OUTPUT
+
+
 #
 # FLOATVAL and INTVAL tests
 #