mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
23 lines
316 B
ObjectPascal
23 lines
316 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.
|