--  { dg-do run }
with Text_IO; use Text_IO;
with Generic_Inst6_I2;
procedure Generic_Inst6 is
begin
   if Generic_Inst6_I2.Check /= 49 then
      raise Program_Error;
   end if;
end;