fpc/tests/webtbs/tw1681.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

13 lines
257 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 1681 }
{ Submitted by "Boris Bukh" on 2001-11-13 }
{ e-mail: brbukh@yahoo.com }
program Mode_Bug;
{$MODE Dlphi}
var i:integer;
{$MODE FPC}
j:Integer;
begin
WriteLn(SizeOf(i));
WriteLn(SizeOf(j));
end.