fpcsrc/tests/tbs/tb0242.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ 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.