paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2004-12-03 16:01:18 +00:00
parent 466c376d13
commit 310bd76f34
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw3173.pp Normal file
View File

@ -0,0 +1,16 @@
{ 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.