Test suite results for test file webtbs/tw2306.pp

Test run data :

Test file "webtbs/tw2306.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1015553.

Source:

{ Source provided for Free Pascal Bug Report 2306 }
{ Submitted by "Sergey Kosarevsky" on  2003-01-03 }
{ e-mail: netsurfer@au.ru }
{$H-}

Const LONG_STR_SIZE=4096;

Type tLongStr=Object  // try to change this
                      // to Record
        LStr:Array[0..LONG_STR_SIZE] Of Char;
        LLength:Longint;
     End;


Operator := (S:String) R:tLongStr;
Begin
   R.LLength:=Length(S);
   Move(S[1],R.LStr[1],Length(S));
End;

Var T:tLongStr;

Begin
   T:='Hello';
   if (T.LLength<>5) or
      (T.LStr[1]<>'H') or
      (T.LStr[5]<>'o') then
    begin
      writeln('Error!');
      halt(1);
    end;

End.

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