gcc/testsuite/gnat.dg/lto26_pkg1.ads

   1 with Ada.Finalization;
   2 with Ada.Streams;  use Ada.Streams;
   3 with Interfaces; use Interfaces;
   4
   5 package Lto26_Pkg1 is
   6
   7   type Rec is new Ada.Finalization.Limited_Controlled with null record;
   8
   9   procedure Set (R : Rec; A : Stream_Element_Array; C :Unsigned_8);
  10
  11 end Lto26_Pkg1;