Test suite results for test file tbs/tb0232.pp

Test run data :

Test file "tbs/tb0232.pp" information:

t_id 463
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940747.

Source:

{ Old file: tbs0272.pp }
{ No error issued if wrong parameter in function inside a second function OK 0.99.13 (PFV) }

program test_const_string;


function astring(s :string) : string;

begin
  astring:='Test string'+s;
end;

procedure testvar(var s : string);
begin
  writeln('testvar s is "',s,'"');
end;

procedure testconst(const s : string);
begin
  writeln('testconst s is "',s,'"');
end;

procedure testvalue(s : string);
begin
  writeln('testvalue s is "',s,'"');
end;

const
  s : string = 'test';
  conststr = 'Const test';
begin
  testvalue(astring('e'));
  testconst(astring(s));
  testconst(conststr);
end.

Link to SVN view of tbs/tb0232.pp source.