mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:48:02 +02:00
16 lines
254 B
ObjectPascal
16 lines
254 B
ObjectPascal
{ Old file: tbs0283.pp }
|
|
{ bugs in constant char comparison evaluation OK 0.99.13 (PFV) }
|
|
|
|
const dirsep = '\';
|
|
|
|
begin
|
|
if dirsep = '/'
|
|
then
|
|
begin
|
|
writeln('bug!');
|
|
Halt(1);
|
|
end
|
|
else
|
|
writeln('ok');
|
|
end.
|