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

* fixed for 64 bit CPUs

Browse Source
This commit is contained in:
florian 2005-04-25 07:50:55 +00:00
parent dde36768ec
commit 18c6645bd8
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw3694.pp
View File

@ -6,7 +6,15 @@ begin
end; end;
var var
{$ifdef CPU64}
s : double;
{$else}
s : single; s : single;
{$endif CPU64}
begin begin
{$ifdef CPU64}
s := double(f);
{$else CPU64}
s := single(f); s := single(f);
{$endif CPU64}
end. end.