fpcsrc/tests/tbs/tb0249.pp


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

unit tb0249;

interface
type
  rec=object
    i : longint;
    nrs : (one,two,three);
  end;
var
  brec : rec;

implementation

end.