mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 10:49:29 +02:00
* removed knowncompilererror10
This commit is contained in:
parent
b34b0141d5
commit
6939e0e4d4
22
tests/tbf/tb0151.pp
Normal file
22
tests/tbf/tb0151.pp
Normal 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}
|
@ -1,4 +1,5 @@
|
||||
{ %KNOWNRUNERROR=2 v1.0 does not support class DefaultHandler message }
|
||||
{ %version=1.1 }
|
||||
|
||||
{$ifdef fpc}
|
||||
{$mode delphi}
|
||||
{$endif}
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user