freepascal.compiler/tests/tbs/tb0408.pp

{ 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.