Test suite results for test file tbs/tb0057.pp

Test run data :

Test file "tbs/tb0057.pp" information:

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

Detailed test run results:

Record count: 1

No log of 941191.

Source:

{ Old file: tbs0064.pp }
{  shows other types of problems with case statements   OK 0.99.1 (FK) }

var
 i: byte;
 j: integer;
 c: char;
Begin
  case i of
  Ord('x'): ;
  end;
  case j of
  Ord('x'): ;
  end;
  case c of
  Chr(112): ;
  end;
end.

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