freepascal.compiler/bugs/bug0277.pp

  program bug0277;
  const test_byte=pchar(1);
  begin
    writeln('Hello world');
  end.