freepascal.compiler/tests/tbf/tb0105.pp

{ %fail }
type
  trec = record l1,l2,l3 : longint end;

const
  r: trec = (l2:5);

begin
end.