@@ -1,4 +1,3 @@
-{ %fail }
{$ifdef fpc}{$mode tp}{$endif}
@@ -9,7 +8,6 @@ var
begin
j:=5;
i:=-1;
- { this is not allowed for big endian, even not in tp7 mode }
byte(i):=j;
writeln('i: ',i,' (should be -251)');
if i<>-251 then
@@ -17,6 +15,5 @@ begin
end.
{$else}
- {$error Test is big endian only, fail for little endian}
{$endif}