+ type alu_testv is record
+ o1 : cinteger;
+ o : alu_ops;
+ o2 : cinteger;
+ expected : cinteger;
+ end record alu_testv;
+
+ -- ggf. groesse des arrays erhoehen
+ type alu_testv_array is array (natural range 0 to 20) of alu_testv;
+
+ variable testmatrix : alu_testv_array :=
+ ( 0 => (7, ADD, 3, 10),
+ 1 => (7, SUB, 1, 6),
+ 2 => (7, DIV, 1, 7),
+ 3 => (7, DIV, 2, 3),
+ 4 => (7, ADD, 1, 8),
+ 5 => (7, MUL, 3, 21),
+ 6 => (-7, MUL, 3, -21),
+ 7 => (268435456, MUL, -2, -536870912),
+ 8 => (268435456, MUL, 2**5, 0), -- um fuenf nach links shiften
+ 9 => (268435456 + 5, MUL, 2**5, 160), -- = 5 * (2^5)
+ others => (0, ADD, 0, 0)
+ );
+