tests/test/tnest1.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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

{$inline on}

procedure test(l1, l2: longint; var l3: longint);

var
  a1: cardinal;
  d1, d2: double;
  a2: cardinal;

  procedure nested; inline;
    begin
      l1:=1;
      l2:=2;
      l3:=5;
      d1:=3.0;
      d2:=4.0;
    end;

begin
  a1:=$deadbeef;
  a2:=$cafe0000;
  nested;
  if a1<>$deadbeef then
    halt(1);
  if a2<>$cafe0000 then
    halt(2);
  if l1<>1 then
    halt(3);
  if l2<>2 then
    halt(4);
  if d1<>3.0 then
    halt(5);
  if d2<>4.0 then
    halt(6);
  if l3<>5 then
    halt(7);
end;

var
  a3: longint;
begin
  a3:=1;
  test(5,6,a3);
end.