1 2 3 4 5 6 7 8
package array2 is type RIC_TYPE is (RIC1, RIC2); for RIC_TYPE'SIZE use 32; function MAX return Integer; end array2;