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