mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 14:59:29 +02:00
036c9f7ff2
U compiler/systems/t_embed.pas --- Recording mergeinfo for merge of r45365 into '.': U . --- Merging r45707 into '.': U compiler/defcmp.pas A tests/tbs/tb0675.pp --- Recording mergeinfo for merge of r45707 into '.': G . --- Merging r46279 into '.': U compiler/pexpr.pas A tests/test/tarrconstr8.pp --- Recording mergeinfo for merge of r46279 into '.': G . --- Merging r47110 into '.': U compiler/symdef.pas A tests/tbs/tb0679.pp A tests/tbs/tb0680.pp --- Recording mergeinfo for merge of r47110 into '.': G . git-svn-id: branches/fixes_3_2@47819 -
46 lines
607 B
ObjectPascal
46 lines
607 B
ObjectPascal
program tb0675;
|
|
|
|
{$mode objfpc}
|
|
|
|
function Test(a: Single): LongInt;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
{$ifdef FPC_HAS_TYPE_DOUBLE}
|
|
function Test(a: Double): LongInt;
|
|
begin
|
|
Result := 2;
|
|
end;
|
|
{$endif}
|
|
|
|
function Test2(a: Single): LongInt;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
{$ifdef FPC_HAS_TYPE_DOUBLE}
|
|
function Test2(a: Double): LongInt;
|
|
begin
|
|
Result := 2;
|
|
end;
|
|
{$endif}
|
|
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
function Test2(a: Extended): LongInt;
|
|
begin
|
|
Result := 3;
|
|
end;
|
|
{$endif}
|
|
|
|
var
|
|
a: Currency;
|
|
begin
|
|
if Test(a) <> 2 then
|
|
Halt(1);
|
|
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
if Test2(a) <> 3 then
|
|
Halt(2);
|
|
{$endif}
|
|
end.
|