Test suite results for test file webtbf/tw1655.pp

Test run data :

Test file "webtbf/tw1655.pp" information:

t_id 1097
t_adddate 2003/10/14
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ %FAIL }
{$MODE delphi}
type
  TProc = procedure of object;
  TMyClass = class
    i: Integer;
    procedure Test;
    procedure Doit;
  end;

procedure TMyClass.Test;
begin
  WriteLn('i = ', i);
end;

procedure TMyClass.Doit;
var
  p: TProc = @Test;
begin
  i := 12345;
  p;
end;

var
  o: TMyClass;
begin
  o := TMyClass.Create;
  o.Doit;
end.

Link to SVN view of webtbf/tw1655.pp source.