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