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;
|