testsuite/gna/issue2104/e2c.vhdl


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

entity e2c is
  generic (gen1 : natural := 5);
end;

architecture a of e2c is
    function outer(arg : integer) return integer is
        function inner1(arg : integer) return integer is
        begin
            return arg + gen1;
        end;
    begin
        return inner1(arg + 3);
    end;
begin
end;