Test suite results for test file tbs/tb0095.pp

Test run data :

Test file "tbs/tb0095.pp" information:

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

Detailed test run results:

Record count: 1

No log of 936295.

Source:

{ Old file: tbs0113.pp }
{ point initialization problems                         OK 0.99.1 (PM/FK) }

program test;

type pRecord = ^aRecord;
     aRecord = record
                     next : pRecord;
                     a, b, c : integer;
               end;

const rec1 : aRecord = (next : nil; a : 10; b : 20; c : 30);
      rec2 : aRecord = (next : @rec1; a : 20; b : 30; c : 40);

begin
end.

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