paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 03:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* extended test

Browse Source 
git-svn-id: trunk@5917 -
This commit is contained in:
Jonas Maebe 2007-01-12 10:38:15 +00:00
parent a6a0745436
commit 7afbe22031
1 changed files with 23 additions and 1 deletions

24
tests/tbs/tb0519.pp
View File

@ -1,8 +1,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(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.