Test suite results for test file webtbs/tw3572.pp

Test run data :

Test file "webtbs/tw3572.pp" information:

t_id 1461
t_adddate 2005/01/25
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 550150.

Source:

{ 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.

Link to SVN view of webtbs/tw3572.pp source.