fpc/tests/tbf/tb0253.pp

15 lines
137 B
ObjectPascal

{ %FAIL }
program tb0253;
{$mode objfpc}
type
TTest = class(TObject, IInterface)
procedure Blubb.Bar = Foo;
end;
begin
end.