* gcc-interface/trans.c (Subprogram_Body_to_gnu): Pop the stack of

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / vect6_pkg.ads

with System;

package Vect6_Pkg is

   type Index_Type is mod System.Memory_Size;

   function K return Index_Type;
   function N return Index_Type;

end Vect6_Pkg;