diff --git a/array1-test.scm b/array1-test.scm
new file mode 100644
index 00000000..e36b82f8
--- /dev/null
+++ b/array1-test.scm
@@ -0,0 +1,11 @@
+;;; ARRAY1 -- One of the Kernighan and Van Wyk benchmarks.
+
+(import (scheme base) (scheme read) (scheme write) (scheme time))
+
+(define (create-x n)
+  (define result (make-vector n))
+  (do ((i 0 (+ i 1)))
+      ((>= i n) result) ;; TODO: check generated code, can this >= be inlined???
+    (vector-set! result i i)))
+
+(write (create-x 10))