fpcsrc/tests/tbs/tb0499.pp


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

var
  e1     : byte;

procedure p;
var
  r : record
    e : (e1,e2);
  end;

begin
  r.e:=e1;
end;

begin
end.