paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

bug0303 copied

Browse Source
This commit is contained in:
pierre 1999-12-12 23:34:43 +00:00
parent d28395e01f
commit 116acd6f10
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/tbs/tbs0303.pp Normal file
View File

@ -0,0 +1,21 @@
type
intarray = array[1..1000,0..1] of longint;
procedure test;
var
ar : intarray;
i : longint;
procedure local;
begin
i:=4;
ar[i,0]:=56;
ar[i-1,0]:=pred(ar[i,0]);
end;
begin
local;
end;
begin
test;
end.