tests/webtbf/tw19463.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

{ %fail }
{$CODEALIGN 3}
{$CODEALIGN PROC=3}

program test1;

var
  v: integer = 1;

procedure A;
begin
  Inc(v);
end;

procedure B;
begin
  Dec(v);
end;

begin
  A;
  B;
end.