Test suite results for test file tbs/tb0340.pp

Test run data :

Test file "tbs/tb0340.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{$mode objfpc}
var
  v : tvarrec;
  error : boolean;
procedure p(a:array of const);
var
  i : integer;
begin
  for i:=low(a) to high(a) do
   with a[i] do
    begin
      case vtype of
        vtInteger :
          begin
            writeln('Integer: ',VInteger);
            if VInteger=1000 then
             Error:=false;
          end;
        else
          writeln('Error!');
      end;
    end;
end;

begin
  error:=true;
  v.vtype:=vtInteger;
  v.VInteger:=1000;
  p(v);
  if Error then
   Halt(1);
end.

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