gcc/testsuite/gnat.dg/generic_inst6.adb


1
2
3
4
5
6
7
8
9

--  { 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;