mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:07:59 +02:00
20 lines
252 B
ObjectPascal
20 lines
252 B
ObjectPascal
{$ifdef fpc}{$mode tp}{$endif}
|
|
|
|
{$ifdef ENDIAN_BIG}
|
|
begin
|
|
end.
|
|
{$else}
|
|
var
|
|
i : longint;
|
|
j : word;
|
|
begin
|
|
j:=5;
|
|
i:=-1;
|
|
{ this is allowed in tp7 }
|
|
byte(i):=j;
|
|
writeln('i: ',i,' (should be -251)');
|
|
if i<>-251 then
|
|
halt(1);
|
|
end.
|
|
{$endif}
|