mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 07:08:29 +02:00
27 lines
405 B
ObjectPascal
27 lines
405 B
ObjectPascal
{ %version=1.1 }
|
|
{ %fail }
|
|
{ Interfaces only supported in v1.1 }
|
|
{ Should give the same error as /tbf/tb0125.pp }
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
type
|
|
|
|
tinterface = interface
|
|
procedure x;
|
|
end;
|
|
|
|
tderivedinterface = interface(tinterface)
|
|
procedure x;
|
|
end;
|
|
|
|
procedure testintparam(var i : tinterface);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
t1 : tderivedinterface;
|
|
begin
|
|
testintparam(t1);
|
|
end.
|