Browse Source

+ forgot to commit, part of r26472

git-svn-id: trunk@27382 -
Jonas Maebe 11 years ago
parent
commit
54964d92eb
2 changed files with 19 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 18 0
      tests/test/jvm/tsmallintarr.pp

+ 1 - 0
.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

+ 18 - 0
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.