Test suite results for test file tbs/tb0082.pp

Test run data :

Test file "tbs/tb0082.pp" information:

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

Detailed test run results:

Record count: 1

No log of 935641.

Source:

{ Old file: tbs0095.pp }
{ case with ranges starting with #0 bugss                OK 0.99.1 (FK) }

var
  ch : char;
begin
  ch:=#3;
  case ch of
   #0..#31 : ;
  else
   writeln('bug');
  end;
  case ch of
   #0,#1,#3 : ;
  else
   writeln('bug');
  end;
end.

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