summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw4278.pp
blob: 335a6a6b1c049caea5f001e4c003535e568b7cbf (plain)
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
{$mode objfpc}

var
  err : boolean;

type
  TA = class
  end;
  TB = class(TA)
  end;
  TC = class(TB)
  end;

procedure Test(const A: TA); overload;
begin
end;

procedure Test(const B: TB); overload;
begin
  writeln('ok');
  err:=false;
end;

var
  X : TC;

begin
  err:=true;
  Test(X);
  if err then
    halt(1);
end.