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


1
2
3
4
5
6
7
8
9
10

with System;

package Vect3_Pkg is

   type Index_Type is mod System.Memory_Size;

   function K return Index_Type;
   function N return Index_Type;

end Vect3_Pkg;