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

* fixed for systems where extended = double

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-29 18:53:18 +00:00
parent b46b7ff792
commit cbfa846387
1 changed files with 7 additions and 2 deletions

9
tests/webtbs/tw2131.pp
View File

@ -2,11 +2,16 @@ program bug2131;
var
TestStr : string;
correct : string;
begin
if sizeof(extended) > sizeof(double) then
correct := ' 1.8E+0012'
else
correct := ' 1.8E+012';
Str (1.789e12:1, TestStr);
if (teststr <> ' 1.8E+0012') then
if (teststr <> correct) then
begin
writeln('error, got "',teststr,'" expected " 1.8E+0012"');
writeln('error, got "',teststr,'" expected "',correct,'"');
halt(1);
end
end.