mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 23:08:08 +02:00
15 lines
263 B
ObjectPascal
15 lines
263 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0676;
|
|
|
|
{$warn 4110 error}
|
|
|
|
begin
|
|
SwapEndian(UInt16($1234));
|
|
SwapEndian(Int16($8765));
|
|
SwapEndian(UInt32($12345678));
|
|
SwapEndian(Int32($87654321));
|
|
SwapEndian(UInt64($1234567887654321));
|
|
SwapEndian(Int64($8765432112345678));
|
|
end.
|