Test suite results for test file webtbs/tw1203.pp

Test run data :

Test file "webtbs/tw1203.pp" information:

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

Detailed test run results:

Record count: 1

No log of 873464.

Source:

{ Source provided for Free Pascal Bug Report 1203 }
{ Submitted by "Marco van de Voort" on  2000-10-29 }
{ e-mail: marco@freepascal.org }
{$mode Delphi}
type
     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
     a=class
     protected
        fondisplay : someprocedureofobjectype;
     public
        a:longint;
     end;

     b=class(A)
     protected
        fondisplay : someprocedureofobjectype;
     public
        a:longint;
     end;

begin
end.

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