Test suite results for test file webtbs/tw3038.pp

Test run data :

View Test suite results

Test file "webtbs/tw3038.pp" information:

t_id 1280
t_adddate 2004/04/12
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ Source provided for Free Pascal Bug Report 3038 }
{ Submitted by "Marco (Gory Bugs Department)" on  2004-04-03 }
{ e-mail:  }
{$mode delphi}

type dasso     = class
                 procedure bla; virtual; abstract;
                end;
    dmyasso    = class(dasso)
                  procedure bla; override;
                end;
    dnextasso = class(dmyasso)
                   procedure bla; override;
                end;
    ClassFamily= class of dasso;

procedure dmyasso.bla;
begin
end;

procedure dnextasso.bla;
begin
end;

const cmyclass : array[0..1] of classfamily =(dmyasso,dnextasso);

var vmyclass : array[0..1] of classfamily =(dmyasso,dnextasso);

begin
end.

Link to SVN view of webtbs/tw3038.pp source.