paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 13:38:30 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbs/tw2131.pp
View File

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