Test suite results for test file webtbs/tw3212.pp

Test run data :

Test file "webtbs/tw3212.pp" information:

t_id 1355
t_adddate 2004/09/13
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934988.

Source:

{ Source provided for Free Pascal Bug Report 3212 }
{ Submitted by "Marc Weustink" on  2004-07-15 }
{ e-mail: marc@freepascal.org }
program conststring;

{$mode objfpc}
{$H+}

const
  C1: String = 'bla';

procedure X;
const
  C: String = 'bla';
begin
  C:='bla';
  C:='bla'+C;
  WriteLN('"',C,'"');
  if C<>'blabla' then
    halt(1);
end;

begin
  X;
  X;
end.

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