tests/webtbs/tw38083.pp


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

{ %NORUN }

program tw38083;

{$MODE Delphi}

  procedure Test<T>(A: T; B: Boolean); overload;
  begin

  end;

  procedure Test(A: String); overload;
  begin
    Test<String>(A, True);
  end;

begin

end.