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

* separate tests

Browse Source
This commit is contained in:
peter 2004-12-26 16:42:24 +00:00
parent 717dce966e
commit 83406cfac0
2 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbf/tw3480.pp
View File

@ -5,11 +5,11 @@
{ e-mail: danny_milo@yahoo.com } { e-mail: danny_milo@yahoo.com }
program z; program z;
{$mode delphi} {$ifdef fpc}{$mode delphi}{$endif}
type type
IBla = interface IBla = interface
class function X: Boolean; function X: Boolean;
end; end;
TBla = class(TInterfacedObject, IBla, IInterface) TBla = class(TInterfacedObject, IBla, IInterface)
@ -17,6 +17,11 @@ type
class function X: Boolean; class function X: Boolean;
end; end;
class function TBLA.X: Boolean;
begin
end;
begin begin
TBla.X; TBla.X;
end. end.

20
tests/webtbf/tw3480a.pp Normal file
View File

@ -0,0 +1,20 @@
{ %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;
{$ifdef fpc}{$mode delphi}{$endif}
type
IBla = interface
{ This is not allowed }
class function X: Boolean;
end;
end;
begin
end.