Project

General

Profile

Statistics
| Branch: | Tag: | Revision:

lustrec-tests / vhdl_json / vhdl_files / 2-exportOK / ghdl / ghdl / testsuite / gna / deb573721 / 573721_deb.vhd @ 2051e520

History | View | Annotate | Download (1.89 KB)

1
library ieee;
2
use ieee.std_logic_1164.all;
3
use ieee.numeric_std.all;
4

    
5
entity test is end entity;
6

    
7
architecture a_test of test is
8
    signal a, b : std_logic;
9
    signal i1 : integer := 1;
10
    constant i2 : integer := 1;
11
    signal t1 : time := 1 ns;
12
    constant t2 : time := 1 ns;
13
begin
14
    process
15
        variable m : boolean;
16
        variable ip1 : integer := 1;
17
        constant ip2 : integer := 1;
18
        variable tp1 : time := 1 ns;
19
        constant tp2 : time := 1 ns;
20
    begin
21
        m := a'stable(1 ns);        --works ... literal
22
        m := a'stable(i1 * ns);     --works ... signal * unit
23
        m := a'stable(i2 * ns);     --works ... constant * unit
24
        m := a'stable(t1);          --works ... signal (time)
25
        m := a'stable(t2);          --works ... constant (time)
26
        m := a'stable(ip1 * ns);    --crashs ... LOCAL variable * unit
27
        m := a'stable(ip2 * ns);    --works ...  LOCAL constant * unit
28
        m := a'stable(tp1);         --crashs ... LOCAL variable (time)
29
        m := a'stable(tp2);         --crashs ... LOCAL constant (time)
30
        --
31
        m := a'quiet(1 ns);        --works
32
        m := a'quiet(i1 * ns);     --works
33
        m := a'quiet(i2 * ns);     --works
34
        m := a'quiet(t1);          --works
35
        m := a'quiet(t2);          --works
36
        m := a'quiet(ip1 * ns);    --crashs
37
        m := a'quiet(ip2 * ns);    --works
38
        m := a'quiet(tp1);         --crashs
39
        m := a'quiet(tp2);         --crashs
40
        --
41
        b <= a'delayed(1 ns);        --works
42
        b <= a'delayed(i1 * ns);     --works
43
        b <= a'delayed(i2 * ns);     --works
44
        b <= a'delayed(t1);          --works
45
        b <= a'delayed(t2);          --works
46
        b <= a'delayed(ip1 * ns);    --crashs
47
        b <= a'delayed(ip2 * ns);    --works
48
        b <= a'delayed(tp1);         --crashs
49
        b <= a'delayed(tp2);         --crashs
50
    end process;
51
end architecture;