fpcsrc/tests/webtbs/tw4606.pp


1
2
3
4
5
6
7
8
9
10
11

{$packset 1}
type
  tlettersset=set of 'a'..'z';

begin
  if sizeof(tlettersset)<>4 then
    begin
      writeln(sizeof(tlettersset));
      halt(1);
    end;
end.