From 54964d92eb1c374c642862ca86f07d5096414533 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 30 Mar 2014 16:55:03 +0000
Subject: [PATCH]   + forgot to commit, part of r26472

git-svn-id: trunk@27382 -
---
 .gitattributes                 |  1 +
 tests/test/jvm/tsmallintarr.pp | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 tests/test/jvm/tsmallintarr.pp

diff --git a/.gitattributes b/.gitattributes
index 57573a7962..77e7dd3c41 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -10887,6 +10887,7 @@ tests/test/jvm/tset1.pp svneol=native#text/plain
 tests/test/jvm/tset3.pp svneol=native#text/plain
 tests/test/jvm/tset7.pp svneol=native#text/plain
 tests/test/jvm/tsetansistr.pp svneol=native#text/plain
+tests/test/jvm/tsmallintarr.pp svneol=native#text/plain
 tests/test/jvm/tstr.pp svneol=native#text/plain
 tests/test/jvm/tstring1.pp svneol=native#text/plain
 tests/test/jvm/tstring9.pp svneol=native#text/plain
diff --git a/tests/test/jvm/tsmallintarr.pp b/tests/test/jvm/tsmallintarr.pp
new file mode 100644
index 0000000000..bfc4ea5890
--- /dev/null
+++ b/tests/test/jvm/tsmallintarr.pp
@@ -0,0 +1,18 @@
+program tsmallintarr;
+
+procedure test;
+var
+  a: smallint;
+  l: longint;
+  b: array[smallint] of byte;
+begin
+  for a:=low(b) to high(b) do
+    b[a]:=a and 255;
+  for l:=low(b) to high(b) do
+    if b[l]<>(l and 255) then
+      halt(1);
+end;
+
+begin
+  test
+end.