mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 17:59:26 +02:00
31 lines
588 B
ObjectPascal
31 lines
588 B
ObjectPascal
var
|
|
e: extended;
|
|
d: double;
|
|
s: single;
|
|
begin
|
|
e := pi;
|
|
d := pi;
|
|
s := pi;
|
|
if (sizeof(double) < sizeof(extended)) and
|
|
(d = e) then
|
|
halt(1);
|
|
if (sizeof(double) < sizeof(extended)) and
|
|
(s = e) then
|
|
halt(2);
|
|
if (sizeof(double) < sizeof(extended)) and
|
|
(double(e) = e) then
|
|
halt(3);
|
|
if (sizeof(single) < sizeof(extended)) and
|
|
(single(e) = e) then
|
|
halt(4);
|
|
|
|
d := 1.1;
|
|
s := 1.1;
|
|
if (sizeof(single) < sizeof(double)) and
|
|
(d = s) then
|
|
halt(5);
|
|
if (sizeof(single) < sizeof(double)) and
|
|
(d = single(d)) then
|
|
halt(6);
|
|
end.
|