aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue2104/e3.vhdl
blob: f3641b52e503dbc359856445fcffa2eb0e6017c7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
entity e3 is
end;

architecture a of e3 is
    function outer(arg : integer) return integer is
        function inner1(arg : integer) return integer is
          function inner2(arg : integer) return integer is
          begin
            return arg + 1;
          end;
        begin
            return inner2(0);
        end;
    begin
        return inner1(0);
    end;
begin
end;