fpcsrc/tests/tbs/tb0273.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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

{ Old file: tbs0319.pp }
{  }

{$ifdef fpc}{$mode delphi}{$endif}

function a:longint;
var
  a : longint;
begin
  a:=1;
end;

type
  cl=class
    k : longint;
    procedure p1;
    procedure p2;
  end;

 o = class
       nonsense  :string;
       procedure flup(nonsense:string);
     end;

 o2 = class
       nonsense  :string;
       procedure flop;
       procedure flup(nonsense:longint);
       procedure flup2(flop:longint);
     end;

procedure o.flup(nonsense:string);
begin
end;

procedure o2.flop;
begin
end;

procedure o2.flup(nonsense:longint);
var
  l : longint;
begin
  l:=nonsense;
end;

procedure o2.flup2(flop:longint);
var
  l : longint;
begin
  l:=flop;
  flup(flop);
end;


procedure cl.p1;
var
  k : longint;
begin
end;

procedure cl.p2;
var
  p1 : longint;
begin
end;

begin
end.