testsuite/gna/bug21513/pb.vhdl


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

entity pb is
end pb;

architecture behav of pb is
  type t is record
    v : integer;
  end record;

  function "-" (a, b : t) return t is
    variable v : integer;
  begin
    "-".v := a.v;
    v := "-".b.v;
    return b;
  end "-";
begin
end;