Add __builtion_unreachable to vector::size(), vector::capacity()

[official-gcc.git] / gcc / testsuite / gnat.dg / elab7_pkg2.adb

with Elab7_Pkg1;

package body Elab7_Pkg2 is
   procedure From_Timerep is
      Lf1 : Long_Float := 1.0;
      Lf2 : Long_Float := Long_Float'Floor(Lf1);
   begin
      null;
   end From_Timerep;

   procedure A is
   begin
      Elab7_Pkg1.A;
   end A;
end Elab7_Pkg2;