freepascal.compiler/tests/tbs/tb0053.pp

{ Old file: tbs0059.pp }
{  shows the problem with syntax error with ordinal     OK 0.99.1 (FK) }

Program ConstBug;

Const
 S = ord('J');
 t: byte = ord('J');


Begin
end.