fpcsrc/tests/webtbs/tw18909.pp


1
2
3
4
5
6
7
8
9

{$mode objfpc}
uses uw18909a, uw18909b;
var
  a: TA = (x: 1);
  b: TB = (x: 1);
begin
  b := a;
  Write(b.x);
end.