mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 23:49:22 +02:00
c1cbd8a949
most tests which have to succeed (except the extended ones, as they
have to succeed on some and fail on other platforms) in a single file
to speed up testing (the ivarol*.pp files can also still be compiled
separately, but the testsuite will only compile the tnofalvarol
program which includes them all)
git-svn-id: trunk@8947 -
57 lines
848 B
ObjectPascal
57 lines
848 B
ObjectPascal
{ %fail }
|
|
{$ifndef bigfile}
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$else fpc}
|
|
{$define FPC_HAS_TYPE_EXTENDED}
|
|
{$endif fpc}
|
|
{$endif bigfile}
|
|
|
|
type
|
|
{$ifdef FPC_COMP_IS_INT64}
|
|
comp168 = double;
|
|
{$else FPC_COMP_IS_INT64}
|
|
comp168 = comp;
|
|
{$endif FPC_COMP_IS_INT64}
|
|
procedure test168(a: char); overload;
|
|
begin
|
|
writeln('char called instead of widechar');
|
|
writeln('XXX')
|
|
end;
|
|
|
|
procedure test168(a: widechar); overload;
|
|
begin
|
|
writeln('widechar called instead of char');
|
|
writeln('YYY')
|
|
end;
|
|
|
|
var
|
|
x168: char;
|
|
|
|
y168: widechar;
|
|
procedure dotest168;
|
|
var
|
|
v: variant;
|
|
|
|
begin
|
|
try
|
|
v := x168;
|
|
test168(v);
|
|
except
|
|
on E : TObject do
|
|
writeln('QQQ');
|
|
end;
|
|
|
|
try
|
|
v := y168;
|
|
test168(v);
|
|
except
|
|
on E : TObject do
|
|
writeln('VVV');
|
|
end;
|
|
end;
|
|
|
|
{$ifndef bigfile} begin
|
|
dotest168;
|
|
end. {$endif not bigfile}
|