fpcsrc/tests/tbs/tb0530.pp


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

type
  tset1 = set of 0..7;
  tset2 = set of 0..15;

procedure p(s : tset1);overload;
  begin
  end;


procedure p(s : tset2);overload;
  begin
  end;

begin
end.