Test suite results for test file webtbf/tw1969.pp

Test run data :

Test file "webtbf/tw1969.pp" information:

t_id 1110
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 946547.

Source:

{ %fail }

{ Source provided for Free Pascal Bug Report 1969 }
{ Submitted by "Sergey Kosarevsky" on  2002-05-13 }
{ e-mail: netsurfer@au.ru }
Type tDemo=Object
        Static:Longint;
        Constructor Init;
        Procedure Run(Var Msg); Message 1;   // But this is an Object, not a Class !!! How can a make use of this declaration ?
     End;

Type tDemo1=Object
        Static:Longint;
        Constructor Init;
        Procedure Run; Dynamic;   // I caouldn't find this keyword in documentation
     End;

Constructor tDemo.Init;
Begin
End;

Constructor tDemo1.Init;
Begin
End;

Procedure tDemo.Run(Var Msg);
Begin
End;

Procedure tDemo1.Run;
Begin
End;

Begin
End.

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