Test suite results for test file tbs/tb0408.pp

Test run data :

Test file "tbs/tb0408.pp" information:

t_id 624
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948042.

Source:

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

Link to SVN view of tbs/tb0408.pp source.