blob: 7691b002be50489ce21d4ea1f798bc0ef3465046 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ Source provided for Free Pascal Bug Report 2659 }
{ Submitted by "Tomas Hajny" on 2003-08-31 }
{ e-mail: hajny@freepascal.org }
{ If the X- is removed then it compiles OK }
{$X-}
procedure Test (S: string);
begin
end;
begin
Test (Copy ('A', 1, 1));
end.
|
