summaryrefslogtreecommitdiff
path: root/testsuite/gna/bug029/repro1.vhdl
blob: 594133da7dbc7c3656d46a55196a2c9183b8ef39 (plain)
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
package foo is
    function some_foo return integer;
    function some_fum return integer;
    function some_foe (x, y, w: integer) return integer;
    function some_fee (x, y, w: integer) return integer;
end package;

package body foo is
    function some_foo return integer is
        
    begin
        return -1;
        return 0;
    end function;
    
    function some_fum return integer is
        variable a: integer := -1;
        variable b: integer := 0;
    begin
        return a;
        return b;
    end function;
    
    function some_foe (x, y, w: integer) return integer is
        variable a: integer := -1;
        variable b: integer := 0;       
    begin
        return a;
        return b;
    end function;

    function some_fee (x, y, w: integer) return integer is
        variable a: integer := -1;
        variable b: integer := 0;       
    begin
        a := x + w;
        b := y + w;
        return a;
        return b;
    end function;
            
end package body;