fpcsrc/tests/test/tnoext4.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ %norun }
{$mode objfpc}
{x-}

type
 tr = record end;

operator +(const r1,r2: tr) res: tr;
begin
end;

operator:=(const r: tr) res: longint;
begin
end;

var
 r1, r2: tr;
 l:longint;
begin
  l:=r1+r2;
end.