paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 11:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2004-12-26 16:28:03 +00:00
parent ced6bf20cd
commit c30d55ce5e
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/webtbf/tw3480.pp Normal file
View File

@ -0,0 +1,21 @@
{ %fail }
{ Source provided for Free Pascal Bug Report 3480 }
{ Submitted by "Danny Milosavljevic" on 2004-12-26 }
{ e-mail: danny_milo@yahoo.com }
program z;
type
IBla = interface
class function X: Boolean;
end;
TBla = class(TInterfacedObject, IBla, IInterface)
public
class function X: Boolean;
end;
begin
TBla.X;
end.