Test suite results for test file webtbs/tw2220.pp

Test run data :

Test file "webtbs/tw2220.pp" information:

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

Detailed test run results:

Record count: 1

No log of 948168.

Source:

{ Source provided for Free Pascal Bug Report 2220 }
{ Submitted by "marco" on  2002-11-06 }
{ e-mail: marcov@freepascal.org }
{$H+}
{$ifdef fpc}{$MODE DELPHI}{$endif}
// NO OUTPUT, GDB SHOWS SIGSEGV IN DECR_REF

type bla=class
        freceivebuffer : array[0..4095] of char;
        flastresponse  : String;
        procedure themethod;
        end;

procedure bla.themethod;
        var i : longint;
        begin
         i:=12;
         flastresponse:=copy(freceivebuffer,1,I-1);
         writeln('point 1: ',flastresponse);
        end;

var x : bla;

begin
  x:=bla.create;
  x.freceivebuffer:='test string is wrong!';
  x.themethod;
  writeln('point 2');
end.

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