summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw14743.pp
blob: 06aacbac5b5448ed5c20ba9ed796a20f3048ff21 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{$mode delphi}
program tbreintroduce;

type
    parent = object
        constructor init;
    end;

    child = object(parent)
        constructor init(a : byte);reintroduce;
    end;

constructor parent.init;
begin
end;

constructor child.init(a : byte);
begin
end;

begin
end.