aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue140/OSVVM_TB.vhd
blob: e7a73c3670e21155913f8781032b4211f4a636d1 (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
entity OSVVM_TB is
end OSVVM_TB;

architecture behavioral of OSVVM_TB is

type CovPType is protected
procedure AddBins(n : integer);
end protected;

type CovPType is protected body

procedure AddBins(n : integer) is
begin
   null;
end AddBins;

end protected body;

    shared variable Timeout_aborts_transfer : CovPType;

begin

    --Master
MASTER_STIMULUS: process
begin
    Timeout_aborts_transfer.AddBins(0);      -- comment this line out and the following piece of garbage is correctly diagnosed
    Timeout_aborts_transfer : CovPType;      -- syntax error here! 
end process;

end behavioral;