Test suite results for test file test/tinivar.pp

Test run data :

Test file "test/tinivar.pp" information:

t_id 47
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 941224.

Source:

{ %VERSION=1.1 }

program tinivar;

procedure p1;
var
  a : integer = 1;
begin
  writeln(a);
  if a<>1 then
    halt(1);
  inc(a);
end;

begin
  p1;
  p1;
end.

Link to SVN view of test/tinivar.pp source.