paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 03:30:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2005-01-24 21:33:27 +00:00
parent 14c33448af
commit ebe13d3423
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbs/tw3579.pp Normal file
View File

@ -0,0 +1,17 @@
{ 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.