Test suite results for test file webtbs/tw3681.pp

Test run data :

Test file "webtbs/tw3681.pp" information:

t_id 1552
t_adddate 2005/04/13
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Source provided for Free Pascal Bug Report 3681 }
{ Submitted by "Marco" on  2005-02-22 }
{ e-mail:  }
{$Mode Delphi}
Uses Variants;

var cvariant : variant;
begin
  try
    cvariant := VarArrayCreate( [0, 5], varVariant );
    cvariant[ 0 ] := 'TEST1';
    cvariant[ 1 ] := 'TEST2';
    cvariant[ 2 ] := 'TEST3';
    cvariant[ 3 ] := 'TEST4';
    cvariant[ 4 ] := 'TEST5';
  finally
    VarArrayRedim( cvariant, 0 );
    if (not varIsEmpty( cvariant )) then
      VarClear( cvariant );
  end;
end.

Link to SVN view of webtbs/tw3681.pp source.