blob: 549580859ab66629b629c2d095c0045fbc62c0a3 (
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
25
26
27
28
29
30
31
32
|
{ %version=1.1 }
{$mode objfpc}
{$r+}
uses
sysutils;
var
a : array of longint;
b : 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
b:=-1;
a[b]:=1;
except
halt(0);
end;
end;
end;
writeln('Problem with dyn. array range checking');
halt(1);
end.
|
