testsuite/gna/issue2070/crash29_2.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

package n is
  function t return n;
end;
package body n is
  function get return l is
  begin
  end get;
end;

package n is
  generic(package g is new w generic map(<>));
  function t return l;
end;

package body gen0 is
  use p;
  function g return l is
  begin
  end;
end gen0;

package b is
end;

architecture beha0 of b is
begin
end beha0;