blob: 33098445350dcefc2bbdee6b48ce05fbbc290f38 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{ %version=1.1 }
{ Source provided for Free Pascal Bug Report 2159 }
{ Submitted by "Yakov Sudeikin" on 2002-10-03 }
{ e-mail: yashka@exebook.com }
{$ifdef fpc}{$mode objfpc}{$endif}
var
a,b,c: array of string;
begin
setlength(a, 2);
a[0] := 'asd';
a[1] := 'qwe';
b := copy(a);
c := copy(a, 1, 1);
if b[0]<>'asd' then
begin
writeln('Error 1');
halt(1);
end;
if b[1]<>'qwe' then
begin
writeln('Error 2');
halt(1);
end;
if c[0]<>'qwe' then
begin
writeln('Error 3');
halt(1);
end;
end.
|
