Test suite results for test file tbs/tb0296.pp

Test run data :

Test file "tbs/tb0296.pp" information:

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

Detailed test run results:

Record count: 1

No log of 947981.

Source:

{ Old file: tbs0355.pp }
{  }

{MvdV; published in core.
    Element that is in the type zz too is not recognised as such.
    }

type xx=(notinsubset1,insubset1,insubset2,notinsubset2);
     zz=insubset1..insubset2;

     ll=record
         yy:zz;
         end;

const oo : array[0..1] of ll = (
                                  (yy:insubset1),
                                  (yy:insubset2));
begin
end.

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