rt_gccstream/gcc/testsuite/gnat.dg/array2.ads

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;