mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
13 lines
173 B
ObjectPascal
13 lines
173 B
ObjectPascal
{ 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.
|