paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 03:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ forgot to commit, part of r26472

Browse Source 
git-svn-id: trunk@27382 -
This commit is contained in:
Jonas Maebe 2014-03-30 16:55:03 +00:00
parent 49ccedbff1
commit 54964d92eb
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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
tests/test/jvm/tsmallintarr.pp Normal file
View File

@ -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.