mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
27 lines
578 B
ObjectPascal
27 lines
578 B
ObjectPascal
|
|
var
|
|
e: record
|
|
case byte of
|
|
1: (e: extended);
|
|
2: (a: array[0..9] of byte);
|
|
end;
|
|
i: longint;
|
|
|
|
{ assume little endian }
|
|
const
|
|
a1: array[0..9] of byte = ($f8,$da,$4f,$8d,$97,$6e,$12,$83,$f5,$43);
|
|
a2: array[0..9] of byte = ($05,$dd,$4f,$8d,$97,$6e,$12,$83,$f5,$43);
|
|
begin
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
writeln('testing');
|
|
e.e := 1.7976931348623157e+305;
|
|
for i:=low(a1) to high(a1) do
|
|
if e.a[i]<>a1[i] then
|
|
halt(1);
|
|
e.e := 1.7976931348623158e+305;
|
|
for i:=low(a1) to high(a1) do
|
|
if e.a[i]<>a2[i] then
|
|
halt(2);
|
|
{$endif}
|
|
end.
|