testsuite/gna/issue18/integer_ambig.vhdl


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

use work.fum.all;

entity overload_index_issue is
end entity overload_index_issue ;
architecture dumbit_down of overload_index_issue is
    shared variable fee: fie;
begin

    process
        variable Data : integer ;
    begin
        Data := fee.foo(120.0);
        wait;
    end process;
end architecture dumbit_down;