fpcsrc/tests/webtbs/uw18909b.pp


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

{ %norun }
unit uw18909b;

{$mode objfpc}

interface

uses uw18909a;

operator :=(const A: TA): TB;

implementation

operator :=(const A: TA): TB; begin Result.x := A.x; end;

end.