Test suite results for test file tbs/tb0200.pp

Test run data :

Run ID:
Operating system: linux
Processor: x86_64
Version: 3.3.1
Fails/OK/Total: 32/8164/8196
Version: 3.3.1
Full version: 3.3.1
Comment: -Cg -O4 -Criot -Fd
Machine: gcc121
Category: 1
SVN revisions: 20:45361:1:45356:1:45359:1:45360
Submitter: pierre
Date: 2020/05/14 02:18:00
Previous run: 497745
Next run: 498076

Hide skipped tests

Hide successful tests

Test file "tbs/tb0200.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
-2127974422497919TrueFalseSuccessfully run

Record count: 1

No log of 497919.

Source:

{ Old file: tbs0236.pp }
{ Problem with range check of subsets !! compile with -Cr OK 0.99.11 (PFV) }

{$R+}
program test_set_subrange;

uses
  erroru;

 type
   enum = (zero,one,two,three);

   sub_enum = one..three;
   prec = ^trec;

   trec = record
     dummy : longint;
     en : enum;
     next : prec;
   end;

 const
   str : array[sub_enum] of string = ('one','two','three');

procedure test;

 var hp : prec;
    t : sub_enum;

 begin
   new(hp);
   hp^.en:=zero;
   new(hp^.next);
   hp^.next^.en:=three;
   t:=hp^.en;
   Writeln('hp^.en = ',str[hp^.en]);
   Writeln('hp^.next^.en = ',str[hp^.next^.en]);
 end;

begin
  require_error(201);
  test;
end.

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