blob: 37598a94b4cf740f72d42e8cd36891f50c7fb279 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{$ifdef fpc}{$mode delphi}{$endif}
function f1:pointer;
begin
result:=nil;
end;
var
func: function:pointer;
begin
func:=f1;
{ Assigned() works on the procvar and does not
call func }
if not assigned(func) then
begin
writeln('ERROR!');
halt(1);
end;
end.
|
