mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
21 lines
233 B
ObjectPascal
21 lines
233 B
ObjectPascal
program bug1;
|
|
|
|
function f : tobject;
|
|
begin
|
|
f := tobject.create;
|
|
end;
|
|
|
|
var
|
|
{$ifdef CPU64}
|
|
s : double;
|
|
{$else}
|
|
s : single;
|
|
{$endif CPU64}
|
|
begin
|
|
{$ifdef CPU64}
|
|
s := double(f);
|
|
{$else CPU64}
|
|
s := single(f);
|
|
{$endif CPU64}
|
|
end.
|