Test suite results for test file tbs/tb0489.pp

Test run data :

Test file "tbs/tb0489.pp" information:

t_id 1540
t_adddate 2005/03/29
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934992.

Source:

{$mode delphi}
uses ub0489;
type oo = class
            function getmyint:integer;
            property someprop:integer read getmyint;
            end;

function oo.getmyint:integer;

begin
  result:=1;
end;



procedure test2;

var ch:char;
    x : oo;

begin
  test(x.someprop,ch,1);
end;

begin
end.

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