t_id
1155
t_adddate
2003/10/22
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ 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.