freepascal.compiler/bugs/bug0200.pp

var
  p : array[0..6] of char;
begin
  p:='test';
  writeln(copy(p,1,3));
end.