blob: 3b797e559be54dfc6823c9b2d0cbb084ba6d6adc (
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
|
library ieee;
use ieee.std_logic_1164.all;
use std.textio.all;
entity demo is
end demo;
architecture behavioral of demo is
signal clk : std_logic := '0';
signal i : integer := 0;
begin
clk <= not clk after 5 ns;
process(clk)
variable l : line;
variable s : string(1 to 4) := " ";
begin
if rising_edge(clk) then
if i = 1 then
std.env.finish;
end if;
l := new string(1 to 13);
l.all := "hereisastring";
report l.all; -- fine
report l.all(1 to 4); -- fine
read(l, s); -- fine if commented out
report s;
report l.all; -- fine
report l.all(1 to 4); -- overflow detected
i <= i+1;
end if;
end process;
end behavioral;
|
