summaryrefslogtreecommitdiff
path: root/testsuite/gna/bug09/univ2.vhdl
blob: af19d38e3d409252a22e2d91f814e429f84c80ce (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

entity univ2 is
end entity;

architecture foo of univ2 is

begin
    assert False 
    report "Time'HIGH = " & Time'IMAGE(Time'VAL(Time'POS(Time'HIGH)))
    severity NOTE;
    assert False
    report "should produce 9223372036854775807"
    severity NOTE;
end architecture;

-- 'POS returns universal integer
--  'VAL parameter is any integer type (including universal integer)