mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 22:48:00 +02:00
26 lines
377 B
ObjectPascal
26 lines
377 B
ObjectPascal
{ %fail }
|
|
{ Returns this error under Delphi :
|
|
Error: Types of actual and formal var parameters must be identical }
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
type
|
|
tsymbol = class
|
|
end;
|
|
|
|
tderivedsymbol = class(tsymbol)
|
|
end;
|
|
|
|
|
|
|
|
procedure testclass(var t: tsymbol);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
myclass : tderivedsymbol;
|
|
begin
|
|
myclass := tderivedsymbol.create;
|
|
testclass(myclass);
|
|
end.
|