fpcsrc/tests/tbs/tb0334.pp


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

{$mode objfpc}

uses
   sysutils;

var
   s : tintegerset;

begin
   if sizeof(s)<>sizeof(integer) then
     begin
        writeln('Wrong size of Sysutils.TIntegerSet (',sizeof(s),')');
        halt(1);
     end;
end.