summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/pointer_variable_bounds_q.ads
blob: 03997f77e630cc10d23210fb4f3caa34a3452b55 (plain)
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;