mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 10:09:20 +02:00
* extended test
git-svn-id: trunk@5917 -
This commit is contained in:
parent
a6a0745436
commit
7afbe22031
@ -1,8 +1,30 @@
|
|||||||
var
|
var
|
||||||
e: extended;
|
e: extended;
|
||||||
|
d: double;
|
||||||
|
s: single;
|
||||||
begin
|
begin
|
||||||
e := pi;
|
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
|
if (sizeof(single) < sizeof(extended)) and
|
||||||
(single(e) = e) then
|
(single(e) = e) then
|
||||||
halt(1);
|
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.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user