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

t_id 758
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/21 01:54:00 35 2024/05/21 02:32:00 0
i386 14 28.0 2024/05/21 01:58:00 33 2024/05/21 02:32:00 0
x86_64 34 68.0 2024/05/21 01:54:00 35 2024/05/21 02:32:00 0
aarch64 2 4.0 2024/05/21 02:03:00 35 2024/05/21 02:19:00 42
linux 49 98.0 2024/05/21 01:54:00 35 2024/05/21 02:32:00 0
win32 1 2.0 2024/05/21 02:04:00 34 2024/05/21 02:04:00 34
3.3.1 28 56.0 2024/05/21 01:56:00 16 2024/05/21 02:32:00 0
3.2.3 22 44.0 2024/05/21 01:54:00 35 2024/05/21 02:32:00 0

Source: 

type Char4=array[1..4] of char;
     T1=packed record
      A1:Char4;
      A2:Char4;
      A3:Char4;
     end;
     PT2=^T2;
     T2=record
      B1:T1;
      B2:Char4;
      B3:longint;
     end;
     T3=record
      C1:Char4;
     end;

var S1,S2:String;

procedure trifich(P1,P2,P3:string; P4:boolean);
begin
  if P4 then WriteLn(P2+P3+'IN '+P1);
end;

var V1:PT2;
    V2:T3;
begin
  new(V1);
  s1 := 'abc';
  s2 := 'def';
  with  v1^ do
    begin
      b1.a1 := '1234';
      b1.a2 := '5678';
      b1.a3 := 'ghij';
      b2 := '0000';
      b3 := longint(char4('9999'));
    end;
  v2.c1 := 'wxyz';
  TriFich(S1+S2,
          V1^.B1.A1+V1^.B1.A2+V1^.B1.A3+V1^.B2+Char4(V1^.B3)+#13#10,
          V1^.B1.A1+V1^.B1.A2+V1^.B1.A3+V2.C1+Char4(V1^.B3)+#13#10,true);
end.

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