Test suite results for test file tbs/tb0169.pp

Test run data :

Test file "tbs/tb0169.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Old file: tbs0202.pp }
{ flag results not supported with case                  OK 0.99.11 (PFV) }

program silly;

var greater : boolean;

procedure error;
begin
   Writeln('Error in tbs0202');
   Halt(1);
end;

procedure compare(i,j : integer);
begin
   case (i>j) of
     true : begin
                greater:=true;
            end;
     false : begin
                greater:=false;
             end;
   end;
end;

begin
  compare(45,2);
  if not greater then
    error;
  compare(-5,26);
  if greater then
    error;
end.

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