blob: 42890e24d2b79e8e4f83b8ca3feb6e9572d31c1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
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.
|
