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