fpcsrc/tests/tbs/tb0237.pp


1
2
3
4
5
6
7
8

{ Old file: tbs0277.pp }
{ typecasting with const not possible                  OK 0.99.13 (PFV) }

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