fpcsrc/tests/webtbs/tw3109.pp


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


var
  l : smallint;
  q : cardinal;
begin
  l:=1;
{$if sizeof(l)=2}
  l:=2;
{$endif}
  if l<>2 then
   begin
     writeln('Error!');
     halt(1);
   end;
end.