mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 11:38:01 +02:00
25 lines
357 B
ObjectPascal
25 lines
357 B
ObjectPascal
{ 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.
|