aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue2239/ent.vhdl
blob: bc7b93998cc27903b1398edcf6795974e924ad58 (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
library ieee;
use ieee.std_logic_1164.all;

entity ent is
end entity;

architecture behaviour of ent is
  
  signal test : std_logic_vector(3 downto 0);

  procedure DUMMY (signal slv : out std_logic_vector(7 downto 0)) is
  begin
    slv <= x"00";
  end procedure;
  
begin

  process
  begin
    DUMMY (slv(7 downto 4) => open,
           slv(3 downto 0) => test);
    wait;
  end process;
  
end architecture;