Test suite results for test file webtbs/tw2767.pp

Test run data :

Test file "webtbs/tw2767.pp" information:

t_id 1192
t_adddate 2003/11/11
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940977.

Source:

{ Source provided for Free Pascal Bug Report 2767 }
{ Submitted by "Jakub Cernohorsky" on  2003-11-06 }
{ e-mail: cernoj@fit.vutbr.cz }
var a:integer;
    err:boolean;
begin
  a:=25;
  case a of
    -10..0:writeln('-10..0');
    31:writeln('31');
    32..38:begin
             writeln('32-38');
             err:=true;
           end;
    66:writeln('66');
  end;
  if err then
    halt(1);
end.

Link to SVN view of webtbs/tw2767.pp source.