Test suite results for test file tbs/tb0366.pp

Test run data :

Test file "tbs/tb0366.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1015786.

Source:

{$ifdef fpc}{$mode objfpc}{$endif}

uses
  ub0366;

type
  tc2=class
  public
    FHeight : integer;
    procedure p1;
  end;

procedure tc2.p1;
var
  c1 : tc1;
begin
  FHeight:=10;
  c1:=tc1.create;
  with c1 do
   begin
     Height:=FHeight;
   end;
  writeln('c1.Height: ',c1.Height,' (should be 10)');
  if c1.Height<>10 then
   begin
     writeln('ERROR!');
     halt(1);
   end;
  c1.free;
end;

var
  c2 : tc2;
begin
  c2:=tc2.create;
  c2.p1;
  c2.free;
end.

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