1entity for2 is
2end entity;
3
4architecture test of for2 is
5
6    type myint is range -1 to 4;
7
8    type myenum is (A, B, C, D);
9
10begin
11
12    process is
13    begin
14        for x in myint loop
15            report myint'image(x);
16        end loop;
17        for y in myenum loop
18            report myenum'image(y);
19        end loop;
20        wait;
21    end process;
22
23end architecture;
24