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

t_id 559
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:22:00 34 2024/05/21 02:32:00 35
i386 15 30.0 2024/05/21 01:22:00 34 2024/05/21 02:32:00 27
x86_64 32 64.0 2024/05/21 01:33:00 15 2024/05/21 02:32:00 35
aarch64 3 6.0 2024/05/21 01:42:00 32 2024/05/21 02:19:00 42
linux 49 98.0 2024/05/21 01:22:00 34 2024/05/21 02:32:00 35
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:33:00 15 2024/05/21 02:32:00 27
3.2.3 22 44.0 2024/05/21 01:22:00 34 2024/05/21 02:32:00 35

Source: 

{$mode objfpc}
var
  v : tvarrec;
  error : boolean;
procedure p(a:array of const);
var
  i : integer;
begin
  for i:=low(a) to high(a) do
   with a[i] do
    begin
      case vtype of
        vtInteger :
          begin
            writeln('Integer: ',VInteger);
            if VInteger=1000 then
             Error:=false;
          end;
        else
          writeln('Error!');
      end;
    end;
end;

begin
  error:=true;
  v.vtype:=vtInteger;
  v.VInteger:=1000;
  p(v);
  if Error then
   Halt(1);
end.

Link to SVN view of tbs/tb0340.pp source.