Test suite results for test file tbs/tb0383.pp

Test run data :

Test file "tbs/tb0383.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940546.

Source:

type
  enum1 = (one,two,three);
  enum2 = (een,twee,drie);

procedure p1(e:enum1);
begin
end;

var
  e2 : enum2;
begin
  e2:=een;
  p1(enum1(e2));
end.

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