mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
6555f37cff
operator for a non-variant type (was already intended that way,
but checks didn't work) (mantis #7070) + tests
* some tab->spaces in defcmp.pas
git-svn-id: trunk@7359 -
22 lines
190 B
ObjectPascal
22 lines
190 B
ObjectPascal
{ %norun }
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$h+}
|
|
{$endif}
|
|
|
|
uses
|
|
Variants;
|
|
|
|
procedure test(const a: array of string);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
a,b: variant;
|
|
begin
|
|
a:=1;
|
|
b:=2;
|
|
test([a,b]);
|
|
end.
|