paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 14:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for processors where sizeof extended = sizeof(double)

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-28 22:22:56 +00:00
parent d38abc3a3f
commit bfd9c1f91c
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test/tstrreal2.pp
View File

@ -26,16 +26,20 @@ var
e: extended;
c: longint;
s2: string;
lenadjust: longint;
begin
if sizeof(extended) = 8 then
lenadjust := 2
else
lenadjust := 0;
e := 10.0;
for c := 1 to 21 do
begin
str(e:0:17,s2);
writeln(s2);
if s2 <> s[c] then
if s2 <> copy(s[c],1,length(s[c])-lenadjust) then
begin
writeln(' Error, should be ',s[c]);
writeln(' Error, should be ',copy(s[c],1,length(s[c])-lenadjust));
halt(1);
end;
e := e / 10.0;