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
|
-- $Id$
-- test a for loop, and if non-fitting next statements are found.
-- Copyright (C) 2008-2009 FAUmachine Team <info@faumachine.org>.
-- This program is free software. You can redistribute it and/or modify it
-- under the terms of the GNU General Public License, either version 2 of
-- the License, or (at your option) any later version. See COPYING.
package t is
type byte is array(1 to 8) of bit;
end package t;
entity foo is
end entity foo;
use t.byte;
architecture foo_impl of foo is
begin
bar : process
variable a : byte;
variable fabar : integer; -- tricky preseed the name
begin
next when a(2) = '1'; -- @ERROR@ Next/Exit statement not within a loop statement.
fubar : for i in 1 to 8 loop
a(i) := '1';
next fabar; -- @ERROR@ Missing loop statement with label <fabar>.
end loop;
end process bar;
end architecture foo_impl;
|
