fpc/tests/webtbs/tw3173.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

16 lines
268 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 3173 }
{ Submitted by "Dominik Zablotny" on 2004-06-18 }
{ e-mail: dominz@wp.pl }
program test;
{$ifdef fpc}{$mode delphi}{$endif}
var
p: procedure of object;
function f:pointer;
begin
end;
begin
@p := f;
end.