fpcsrc/tests/tbs/tb0490.pp


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

type
  trecord = record
    l : longint;
  end;

function test : trecord;
  begin
  end;

procedure p(const c);
  begin
  end;

begin
  p(test);
end.