gcc/testsuite/gnat.dg/vect6_pkg.ads

   1 with System;
   2
   3 package Vect6_Pkg is
   4
   5    type Index_Type is mod System.Memory_Size;
   6
   7    function K return Index_Type;
   8    function N return Index_Type;
   9
  10 end Vect6_Pkg;