diff --git a/core/math/floats/floats-tests.factor b/core/math/floats/floats-tests.factor
index d8d4e03b0f..70d5b765a7 100644
--- a/core/math/floats/floats-tests.factor
+++ b/core/math/floats/floats-tests.factor
@@ -102,3 +102,8 @@ unit-test
 { 38 -0x1.9999999999984p-4 } [ -3.9 -.1 /mod ] unit-test
 { 39 -0x1.999999999998ap-4 } [ -4.0 .1 /mod ] unit-test
 { 38 -0x1.9999999999984p-4 } [ -3.9 .1 /mod ] unit-test
+
+{ 0.5 } [ 3.5 0.75 mod ] unit-test
+{ -0.5 } [ -3.5 0.75 mod ] unit-test
+{ -0.5 } [ -3.5 -0.75 mod ] unit-test
+{ 0.5 } [ 3.5 -0.75 mod ] unit-test