Test suite results for test file webtbf/tw2174.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 "webtbf/tw2174.pp" information:

t_id 1116
t_adddate 2003/10/14
t_result 0
Flag t_fail set
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
Success, compilation failed 50 100.0 2024/05/21 01:40:00 15 2024/05/21 04:32:00 54
i386 6 12.0 2024/05/21 01:52:00 47 2024/05/21 04:13:00 54
m68k 1 2.0 2024/05/21 04:00:00 53 2024/05/21 04:00:00 53
powerpc 1 2.0 2024/05/21 04:15:00 238 2024/05/21 04:15:00 238
x86_64 34 68.0 2024/05/21 01:40:00 15 2024/05/21 04:31:00 27
powerpc64 2 4.0 2024/05/21 04:24:00 57 2024/05/21 04:32:00 54
mipsel 1 2.0 2024/05/21 04:11:00 185 2024/05/21 04:11:00 185
aarch64 5 10.0 2024/05/21 02:36:00 40 2024/05/21 03:50:00 37
linux 38 76.0 2024/05/21 01:40:00 15 2024/05/21 04:32:00 54
win32 1 2.0 2024/05/21 03:02:00 25 2024/05/21 03:02:00 25
go32v2 1 2.0 2024/05/21 04:13:00 54 2024/05/21 04:13:00 54
solaris 10 20.0 2024/05/21 03:08:00 30 2024/05/21 03:35:00 27
3.3.1 33 66.0 2024/05/21 01:40:00 15 2024/05/21 04:24:00 57
3.2.3 17 34.0 2024/05/21 01:52:00 47 2024/05/21 04:32:00 54

Source:

{ %FAIL }
{ Source provided for Free Pascal Bug Report 2174 }
{ Submitted by "Maarten Bekers" on  2002-10-13 }
{ e-mail: fpc@elesoft.net }

{$mode delphi}

program test;

type StringArrayObj = Object
          constructor Init(AllocStrings: Longint);
          destructor Done;
     end; { StringArrayObj }

type pStringArrayObj = ^StringArrayObj;

constructor StringArrayObj.Init(AllocStrings: Longint);
begin
end; { constructor Init }

destructor StringArrayObj.Done;
begin
end; { destructor Done }

var
  oo2,oo3: ^stringarrayobj;

begin
{!!!}
new(oo2, init);
new(oo3, init);

writeln('one');
writeln('two!');
{!!!}
end.

Link to SVN view of webtbf/tw2174.pp source.