paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-02 16:07:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for comp = int64

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-29 19:38:44 +00:00
parent a3cd612259
commit 15698ca7b3
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw2129.pp
View File

@ -33,9 +33,13 @@ begin
dbl1 := -1e-128;
comp1 := comp(dbl1);
str(comp1,s);
{$ifdef cpui386}
if s<>'-6.53142228756617E+0018' then
{$else cpui386}
if s<>'-6531422287566170215' then
{$endif cpui386}
begin
writeln('error');
halt(1);
end;
end.
end.