fpcsrc/tests/webtbs/tw9209.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

{%OPT=-O2}

procedure Proc1(i: integer);
begin
  if i = 1 then
    Inc(i);
end;

procedure Proc2;
begin
  writeln('Test failed!');
  Halt(1);
end;

var
  i, j: integer;

begin
  if (i = 0) and (j = 0) then
    Proc1(i)
  else
    Proc2;
  writeln('Test OK.');
end.