check for bug #1681

tests/webtbf/tw1681.pp

@@ -0,0 +1,18 @@
+{ %OPT=-vw -Sew }
+{ 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: [email protected] }
+program Mode_Bug;
+{$MODE Dlphi}
+var i:integer;
+{$MODE FPC}
+j:Integer;
+begin
+     WriteLn(SizeOf(i));
+     WriteLn(SizeOf(j));
+end.
+

tests/webtbs/tw1681.pp

@@ -0,0 +1,13 @@
+{ Source provided for Free Pascal Bug Report 1681 }
+{ Submitted by "Boris Bukh" on  2001-11-13 }
+{ e-mail: [email protected] }
+program Mode_Bug;
+{$MODE Dlphi}
+var i:integer;
+{$MODE FPC}
+j:Integer;
+begin
+     WriteLn(SizeOf(i));
+     WriteLn(SizeOf(j));
+end.
+