blob: c1287e61ed984e6b1400aa7ebcf05b44865dceb0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ Old file: tbs0303.pp }
{ One more InternalError(10) out of register ! OK 0.99.13 (FK) }
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.
|
