fpcsrc/tests/tbs/tb0313.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

uses ub0313;

var
  arec : rec;

begin
  arec.nrs:=one;
  if arec.nrs<>one then
    begin
       Writeln('Error with enums inside objects');
       Halt(1);
    end;
end.