mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 00:46:02 +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}
|
{$ifdef fpc}
|
||||||
{$mode delphi}
|
{$mode delphi}
|
||||||
{$endif}
|
{$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 }
|
{ 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
|
const
|
||||||
has_errors : boolean = false;
|
has_errors : boolean = false;
|
||||||
has_severe_errors : boolean = false;
|
has_severe_errors : boolean = false;
|
||||||
|
Loading…
Reference in New Issue
Block a user