freepascal.compiler/bugs/bug0113.pp

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.