Test suite results for test file webtbs/tw2220.pp

Test run data :

Free Pascal Compiler Test Suite Results

View Test suite results

Please specify search criteria:
File:
Operating system:
Processor:
Version
Date
Submitter
Machine
Comment
Limit
Cond
Category
Only failed tests
Hide skipped tests
List all tests

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: 50

Total = 50

OK=50 Percentage= 100.00

Result type Cat. Count Percentage First date Last Date
Successfully run 50 100.0 2024/05/20 10:48:00 38 2024/05/20 22:58:00 148
i386 13 26.0 2024/05/20 16:23:00 44 2024/05/20 22:37:00 176
m68k 1 2.0 2024/05/20 22:44:00 190 2024/05/20 22:44:00 190
arm 1 2.0 2024/05/20 22:30:00 59 2024/05/20 22:30:00 59
x86_64 13 26.0 2024/05/20 13:38:00 23 2024/05/20 19:35:00 26
mips 3 6.0 2024/05/20 12:35:00 35 2024/05/20 22:51:00 240
mipsel 1 2.0 2024/05/20 22:58:00 148 2024/05/20 22:58:00 148
aarch64 18 36.0 2024/05/20 10:48:00 38 2024/05/20 22:24:00 44
linux 13 26.0 2024/05/20 10:48:00 38 2024/05/20 22:58:00 148
solaris 12 24.0 2024/05/20 16:23:00 44 2024/05/20 17:30:00 45
darwin 12 24.0 2024/05/20 16:20:00 32 2024/05/20 17:50:00 56
win64 13 26.0 2024/05/20 13:38:00 23 2024/05/20 19:35:00 26
3.3.1 8 16.0 2024/05/20 12:35:00 35 2024/05/20 19:35:00 26
3.2.2 12 24.0 2024/05/20 16:23:00 44 2024/05/20 17:30:00 45
3.2.3 30 60.0 2024/05/20 10:48:00 38 2024/05/20 22:58:00 148

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.