tests/webtbf/tw4651.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

{ %fail }

{$mode delphi}
program test;

type
  TFoo = class(TObject)
    constructor Create(Foo: Pointer);
  end;

constructor TFoo.Create(Foo: Pointer);
begin
end;

procedure shiny;
var
  p: pointer;
  M: TFoo.Create;
begin
end;

end.