array2.ads

来自「用于进行gcc测试」· ADS 代码 · 共 9 行

package array2 is
  
  type RIC_TYPE is (RIC1, RIC2);
  for RIC_TYPE'SIZE use 32;
  
  function MAX return Integer;

end array2;