diff --git a/core/compiler/test/intrinsics.factor b/core/compiler/test/intrinsics.factor
index b6c283ed4d..759258d684 100755
--- a/core/compiler/test/intrinsics.factor
+++ b/core/compiler/test/intrinsics.factor
@@ -441,3 +441,15 @@ cell 8 = [
         ] keep 2 fixnum+fast
     ] compile-call
 ] unit-test
+
+[ 1 ] [
+    8 -3 [ fixnum-shift-fast ] compile-call
+] unit-test
+
+[ 2 ] [
+    16 -3 [ fixnum-shift-fast ] compile-call
+] unit-test
+
+[ 8 ] [
+    1 3 [ fixnum-shift-fast ] compile-call
+] unit-test