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