summaryrefslogtreecommitdiff
path: root/testsuite/gna/ticket40/generic_when_test2.vhdl
blob: 2863bd69ee8f699a94fe8257b44fd74ecced0abc (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
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;

use std.textio.all;

--use work.GENERIC_WHEN.all;

entity TEST2 is
begin
end entity TEST2;

architecture BEHAVIOUR of TEST2 is
        component GENERIC_WHEN is
                generic( FOO  :     std_logic_vector(1 downto 0) );
                port(    IN1  : in  std_logic_vector(1 downto 0);
                         OUT1 : out std_logic_vector(1 downto 0) );
        end component GENERIC_WHEN;

        signal S1 : std_logic_vector(1 downto 0);
        signal S2 : std_logic_vector(1 downto 0);
begin

        GENERIC_WHEN_INST : GENERIC_WHEN
                generic map ( FOO  => "0" & "0")
                port map (    IN1  => S1,
                              OUT1 => S2 );
        process
                variable l : line;
        begin
                S1 <= "01";
                writeline(output, l);
                wait;
        end process;

end architecture BEHAVIOUR;