fpcsrc/tests/test/tinivar.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{ %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.