mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-01 16:25:56 +02:00
22 lines
321 B
ObjectPascal
22 lines
321 B
ObjectPascal
{ This passes under Delphi and Borland pascal }
|
|
{ for objects, classes don't pass, cf. /tbf/tb0125 }
|
|
type
|
|
|
|
tobjsymbol = object
|
|
end;
|
|
|
|
tobjderivedsymbol = object(tobjsymbol)
|
|
end;
|
|
|
|
|
|
|
|
procedure testobject(var t: tobjsymbol);
|
|
begin
|
|
end;
|
|
|
|
|
|
var
|
|
myobject : tobjderivedsymbol;
|
|
begin
|
|
testobject(myobject);
|
|
end. |