tests/webtbf/tw10081.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %fail }
{$mode delphi}

{ manual verification: make sure it complains about a missing overload
  directive rather than saying that overloading is disabled
}

procedure test(a: longint);
begin
end;

procedure test(s: string);
begin
end;

begin
end.