5
{$define FPC_HAS_TYPE_EXTENDED}
10
{$ifdef FPC_COMP_IS_INT64}
12
{$else FPC_COMP_IS_INT64}
14
{$endif FPC_COMP_IS_INT64}
15
procedure test137(a: shortstring); overload;
17
writeln('shortstring called instead of single');
21
procedure test137(a: single); overload;
23
writeln('single called instead of shortstring');
52
{$ifndef bigfile} begin
54
end. {$endif not bigfile}