9 lines
129 B
Ada
9 lines
129 B
Ada
package array2 is
|
|
|
|
type RIC_TYPE is (RIC1, RIC2);
|
|
for RIC_TYPE'SIZE use 32;
|
|
|
|
function MAX return Integer;
|
|
|
|
end array2;
|