Test suite results for test file tbs/tb0226.pp

Test run data :

Test file "tbs/tb0226.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Old file: tbs0264.pp }
{ methodpointer bugss                                   OK 0.99.12b (FK) }

{$MODE DELPHI}

type
    a = class
        c : procedure of object;

        constructor create; virtual;
        destructor destroy; override;

        procedure e; virtual;
        procedure f; virtual;
    end;

constructor a.create;
begin
    c := @e;
end;

destructor a.destroy;
begin
end;

procedure a.e;
begin
    Writeln('E');
    c := @f;
end;

procedure a.f;
begin
    Writeln('F');
    c := @e;
end;

var
    z : a;

begin
    z := a.create;
    z.c;
    z.c;
    z.c;
    z.free;
end.

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