@@ -1,3 +1,5 @@
+{ %FAIL }
+
{ derived from source for Bug Report 1203 }
{ in FPC mode this shouldn't compile }
{$mode objfpc}
{ derived from Web Bug Report 1203 }
{$mode Delphi}
type
@@ -4,7 +4,7 @@ type
pbyte = ^byte;
begin
- if (pbyte(typeinfo(longint))^<>1 then
+ if pbyte(typeinfo(longint))^<>1 then
halt(1);
end.