Test suite results for test file tbs/tb0152.pp

Test run data :

Test file "tbs/tb0152.pp" information:

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

Detailed test run results:

Record count: 1

No log of 568888.

Source:

{ Old file: tbs0182.pp }
{ @record.field doesn't work in constant expr           OK 0.99.9 (PM) }

TYPE Rec = RECORD
             x:WORD;
             y:WORD;
           END;

     Rec1 = Record
            x,y : longint;
            end;
     Rec2 = Record
            r,s : Rec1;
            z : word;
            end;
     plongint = ^longint;

VAR s:WORD;
    r:Rec;
    rr : Rec2;

CONST p1:POINTER = @s;    { Works fine }
      p2:POINTER = @R.y;  { illegal expression }
      p3:pointer = @rr.s.y;
      p4:plongint = @rr.s.y;
BEGIN
   rr.s.y:=15;
   if plongint(p3)^<>15 then
     Begin
        Writeln('Error : wrong code generated');
        Halt(1);
     End;
END.

Link to SVN view of tbs/tb0152.pp source.