Test suite results for test file tbs/tb0489.pp

Test run data :

Run ID:
Operating system: solaris
Processor: sparc
Version: 3.3.1
Fails/OK/Total: 60/9096/9156
Version: 3.3.1
Full version: 3.3.1-15620-gb18c93d-unpushed
Comment: -O2 -Xn -Fd
Machine: unstable10s
Category: 1
SVN revisions: 1de3aba:0481a46:b18c93d:61397d4
Submitter: pierre
Date: 2024/04/27 12:09:00
Previous run: 928753
Next run: 941180

Hide skipped tests

Hide successful tests

Test file "tbs/tb0489.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
477489871940426TrueFalseSuccessfully run

Record count: 1

No log of 940426.

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.