Test suite results for test file tbs/tb0242.pp

Test run data :

Test file "tbs/tb0242.pp" information:

t_id 473
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 847485.

Source:

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

Link to SVN view of tbs/tb0242.pp source.