* new bug

tests/webtbs/tw3109.pp

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