t_id
1463
t_adddate
2005/01/25
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ Source provided for Free Pascal Bug Report 3579 } { Submitted by "Martin Schreiber" on 2005-01-21 } { e-mail: } program project1; {$mode objfpc}{$H+} uses classes; type stringarty = array of string; var ar1,ar2: stringarty; begin setlength(ar1,4); ar2:= copy(ar1); //AV end.