t_id
1461
t_adddate
2005/01/25
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526352765 | 948340 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3572 } { Submitted by "Lukas Gebauer" on 2005-01-18 } { e-mail: gebauerl@mlp.cz } {$MODE DELPHI} program rtest; function x(value: string): string; begin result := Value; result := result; end; var s: string; begin s := 'ahoy!'; writeln(x(s)); if x(s)<>s then halt(1); end.