* removed knowncompilererror10

This commit is contained in:
peter 2003-10-31 16:11:47 +00:00
parent b34b0141d5
commit 6939e0e4d4
3 changed files with 26 additions and 5 deletions

22
tests/tbf/tb0151.pp Normal file
View File

@ -0,0 +1,22 @@
{ %fail }
{$ifdef fpc}{$mode tp}{$endif}
{$ifdef ENDIAN_BIG}
var
i : longint;
j : word;
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
halt(1);
end.
{$else}
begin
{$error Test is big endian only, fail for little endian}
end.
{$endif}

View File

@ -1,4 +1,5 @@
{ %KNOWNRUNERROR=2 v1.0 does not support class DefaultHandler message }
{ %version=1.1 }
{$ifdef fpc}
{$mode delphi}
{$endif}

View File

@ -1,8 +1,6 @@
{ %KNOWNRUNERROR=2 v1.0 computes binary nodes with longint and cardinals as cardinals }
{ %version=1.1 }
{ Testing longint and cardinal addtions }
{ The current 1.0 compiler does handle these operations
differently depending on range check state,
which is rather bad thing PM }
const
has_errors : boolean = false;
has_severe_errors : boolean = false;