mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-07 05:10:52 +01:00
31 lines
388 B
ObjectPascal
31 lines
388 B
ObjectPascal
{ %version=1.1 }
|
|
{$mode objfpc}
|
|
{$r+}
|
|
uses
|
|
sysutils;
|
|
|
|
var
|
|
a : array of longint;
|
|
|
|
begin
|
|
try
|
|
a[10]:=1;
|
|
except
|
|
setlength(a,3);
|
|
a[0]:=1;
|
|
a[1]:=1;
|
|
a[2]:=1;
|
|
try
|
|
a[3]:=1;
|
|
except
|
|
try
|
|
a[-1]:=1;
|
|
except
|
|
halt(0);
|
|
end;
|
|
end;
|
|
end;
|
|
writeln('Problem with dyn. array range checking');
|
|
halt(1);
|
|
end.
|