mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
1da43f67d4
point typecasts behave the same as FPC (convert the value) rather than
as Turbo Pascal (reinterpret the bit pattern) (mantis #35886)
git-svn-id: trunk@42507 -
18 lines
170 B
ObjectPascal
18 lines
170 B
ObjectPascal
program project1;
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
var
|
|
f: Double;
|
|
n: Int64;
|
|
|
|
begin
|
|
n := 9876543210;
|
|
f := Double(n);
|
|
if f<>9876543210.0 then
|
|
halt(1);
|
|
end.
|