Test suite results for test file webtbs/tw2899.pp

Test run data :

Test file "webtbs/tw2899.pp" information:

t_id 1234
t_adddate 2004/01/22
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Source provided for Free Pascal Bug Report 2899 }
{ Submitted by "Mattias Gaertner" on  2004-01-17 }
{ e-mail: mattias@freepascal.org }
program StringCallByRef;

{$ifdef fpc}{$mode objfpc}{$H+}{$endif}

uses
  Classes, SysUtils;

procedure DoSomething(const AString: string);

  procedure NestedProc(var Dummy: string);
  begin
    Dummy:=Dummy; // dummy statement, no change
  end;

var
  s: String;
begin
  s:=copy(AString,5,11);
  writeln('Before NestedProc: "',s,'"');
  NestedProc(s);
  writeln('After NestedProc: "',s,'"'); // s is now emtpy
  if s<>'WhatAStrangeBug' then
    halt(1);
end;

begin
  DoSomething('WhatAStrangeBug');
end.

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