1{ %fail } 2{$ifndef bigfile} 3{$ifdef fpc} 4{$mode delphi} 5{$else fpc} 6{$define FPC_HAS_TYPE_EXTENDED} 7{$endif fpc} 8{$endif bigfile} 9 10type 11{$ifdef FPC_COMP_IS_INT64} 12 comp114 = double; 13{$else FPC_COMP_IS_INT64} 14 comp114 = comp; 15{$endif FPC_COMP_IS_INT64} 16procedure test114(a: smallint); overload; 17 begin 18 writeln('smallint called instead of boolean'); 19 writeln('XXX') 20 end; 21 22procedure test114(a: boolean); overload; 23 begin 24 writeln('boolean called instead of smallint'); 25 writeln('YYY') 26 end; 27 28var 29 x114: smallint; 30 31 y114: boolean; 32procedure dotest114; 33var 34 v: variant; 35 36begin 37 try 38 v := x114; 39 test114(v); 40 except 41 on E : TObject do 42 writeln('QQQ'); 43 end; 44 45 try 46 v := y114; 47 test114(v); 48 except 49 on E : TObject do 50 writeln('VVV'); 51 end; 52end; 53 54{$ifndef bigfile} begin 55 dotest114; 56end. {$endif not bigfile} 57