paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved tb0151 from tbf to tbs

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-29 13:15:48 +00:00
parent 980efd582d
commit 2d05b23107
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/tbf/tb0151.pp → tests/tbs/tb0151.pp
View File

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