mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 08:13:42 +02:00
18 lines
245 B
ObjectPascal
18 lines
245 B
ObjectPascal
{ Old file: tbs0064.pp }
|
|
{ shows other types of problems with case statements OK 0.99.1 (FK) }
|
|
|
|
var
|
|
i: byte;
|
|
j: integer;
|
|
c: char;
|
|
Begin
|
|
case i of
|
|
Ord('x'): ;
|
|
end;
|
|
case j of
|
|
Ord('x'): ;
|
|
end;
|
|
case c of
|
|
Chr(112): ;
|
|
end;
|
|
end. |