gcc-4.9/gcc/testsuite/gnat.dg/pointer_variable_bounds_q.ads


1
2
3
4
5
6

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;