pointer_variable_bounds_q.ads

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

package pointer_variable_bounds_q is

  type A_SIZE_TYPE is new INTEGER range 0 .. 65536;
  function A_MAX_COMPS return A_SIZE_TYPE;

end pointer_variable_bounds_q;