blob: ce08506cdda3daf6e6a31d48ebc7f5364a20bf8f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %OPT=-vw -Sew }
{ %FAIL }
{ The above options transform warnings into errors }
{ so that the warning about unsupported Dlphi
mode becomes an error }
{ 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.
|