Files
linguist/samples/Pascal/tw27294.pp
2015-01-24 01:32:56 +01:00

27 lines
193 B
ObjectPascal

uses
uw27294;
var
p : procedure;
procedure test;
begin
p:=@test;
writeln('OK');
end;
procedure global;
begin
p:=nil;
test;
p();
end;
begin
global;
uw27294.global;
end.