TP3/shell/tests/fixtures/t125_nestedrecord.pas

program nrec;
type Inner = record A : integer; end;
     Outer = record N : Inner; end;
var O : Outer;
begin
  O.N.A := 42;
  writeln(O.N.A)
end.