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 test115(a: smallint); overload;
17
writeln('smallint called instead of widestring');
20
procedure test115(a: widestring); overload;
22
writeln('widestring called instead of smallint');
52
{$ifndef bigfile} begin
54
end. {$endif not bigfile}