path: root/tests/tbs/tb0492.pp

program pokus;

uses
  Variants;

var
  v: Variant;
begin
  v := VarArrayCreate([0, 1], varVariant);
end.