1 files changed, 17 insertions, 0 deletions
diff --git a/test/sarray.fr b/test/sarray.fr
new file mode 100644
index 000000000000..5793af1e5e82
--- /dev/null
+++ b/test/sarray.fr
@@ -0,0 +1,17 @@
+\ test file for ficl
+\ string array...
+: $array ( caddr u ... caddr u n -- ) 
+    create 0 ?do , , loop 
+    does> swap 2* cells + 2@ type 
+;
+
+: s
+    s" string 3"
+    s" string 2"
+    s" string 1"
+    s" string 0"
+    4 
+;
+
+s $array s
+