1 files changed, 7 insertions, 0 deletions
diff --git a/stacker/test/shr.st b/stacker/test/shr.st
new file mode 100644
index 00000000000..3dbc24e3ce7
--- /dev/null
+++ b/stacker/test/shr.st
@@ -0,0 +1,7 @@
+#
+# SHR test
+#
+FORWARD success;
+FORWARD failure;
+: show_failure >d SPACE failure ;
+: MAIN 64 3 >> 8 = IF success ELSE show_failure ENDIF ;