freepascal.compiler/tests/tbs/tbs0344.pp

var
  r : record
        word : array[1..2] of word;
      end;
begin
end.