Test suite results for test file tbs/tb0475.pp

Test run data :

Test file "tbs/tb0475.pp" information:

t_id 1301
t_adddate 2004/05/25
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948213.

Source:

{$mode delphi}
type
  to1 = class
     fp : longint;
     property p : longint read fp write fp;
  end;

procedure p(const v);
  begin
  end;

var
  a : pchar;
  o1 : to1;

begin
  o1:=to1.create;
  p(a[0]);
  p(o1.p);
  o1.free;
end.

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