blob: 8353da261e015d1259291082cf114792cd893069 (
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
|
var
err : boolean;
begin
err:=false;
write('assigned(nil): ');
if assigned(nil) then
err:=true
else
writeln('nil');
write('assigned(pointer(0)): ');
if assigned(pointer(0)) then
err:=true
else
writeln('nil');
write('assigned(pointer(10000)): ');
if assigned(pointer(10000)) then
writeln('assigned')
else
err:=true;
if err then
begin
writeln('err');
halt(1);
end;
end.
|
