Test suite results for test file webtbs/tw2607.pp

Test run data :

Test file "webtbs/tw2607.pp" information:

t_id 972
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0
t_opts -vh

Detailed test run results:

Record count: 1

No log of 948042.

Source:

{ %version=1.1 }
{ %opt=-vh }

{ Source provided for Free Pascal Bug Report 2607 }
{ Submitted by "Will" on  2003-07-27 }
{ e-mail: oohaynotihs@yahoo.com }
Program AbstractFunctionTest;

Type
        pAbstractObject = ^AbstractObject;
        AbstractObject  = Object
        Public

        Constructor Init;
        Destructor Done;
        Procedure Test; Virtual; Abstract;
        End;

Constructor AbstractObject.Init;
Begin
End;

Destructor AbstractObject.Done;
Begin
End;

Var
        Test    : ^AbstractObject;

Begin
        Test    := New(pAbstractObject, Init); {Obviously, this will cause a compiler error}
End.

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