Test suite results for test file webtbf/tw1782.pp

Test run data :

View Test suite results

Test file "webtbf/tw1782.pp" information:

t_id 1100
t_adddate 2003/10/14
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ %fail }

{ Source provided for Free Pascal Bug Report 1782 }
{ Submitted by "Aleksey V. Vaneev" on  2002-01-27 }
{ e-mail: picoder@sbis.komi.ru }

{$mode objfpc}

type
        PStruct = ^TStruct;
        TStruct =
                packed record
                        i: LongInt;
                end;

        TCls = class
                protected
                        Fv: array [1..10] of TStruct;

                        function getv (i: LongInt): TStruct;

                public
                        property v [i: LongInt]: TStruct read getv;
                end;

function TCls.getv (i: LongInt): TStruct;
begin
        Result := Fv [i];
end;

var
        sp: PStruct;
        o: TCls;

begin
        o := TCls.create;
        { Should fail with 'variable expected' }
        sp := @o.v [10];
end.

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